Eine Datei in 3 Memos laden

[Aenogym]

Zitat von Wuaegner:

hm wieso machsts nich mit ner ini-Datei?

genau:

Delphi-Quellcode:

//speichern
var ini: TIniFile;
begin
  ini := TIniFile.create;
  try
    ini.loadfromfile('...');
    ini.writestring('Memos', 'Memo1', memo1.lines.DelimitedText);
    ini.writestring('Memos', 'Memo2', memo2.lines.DelimitedText);
    ini.writestring('Memos', 'Memo3', memo3.lines.DelimitedText);
  finally
    ini.free;
  end;
end;

//laden
var ini: TIniFile;
begin
  ini := TIniFile.create;
  try
    ini.loadfromfile('...');
    memo1.lines.delimitedtext := ini.readstring('Memos', 'Memo1', '');
    memo2.lines.delimitedtext := ini.readstring('Memos', 'Memo2', '');
    memo3.lines.delimitedtext := ini.readstring('Memos', 'Memo3', '');
  finally
    ini.free;
  end;
end;

so in etwa (ungetestet).

Aenogym