Código Delphi [-] procedure TForm1.Button4Click(Sender: TObject); var myINI : TINIFile; begin ListBox1.Clear; myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'Ejemplo1.ini'); myINI.ReadSections(listBox1.Items); myINI.ReadSections(Memo1.Lines); end;
procedure TForm1.Button4Click(Sender: TObject); var myINI : TINIFile; begin ListBox1.Clear; myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'Ejemplo1.ini'); myINI.ReadSections(listBox1.Items); myINI.ReadSections(Memo1.Lines); end;