Eine Datei in 3 Memos laden

[hibbert]

wie wäre es denn, wenn du den Text in eine Variable lädst.
und dann sollte folgendes gehen:

Delphi-Quellcode:

var text,textM1,textM2,textM2:string;
i:integer;
begin
i:=pos('[/\Memo1/\]',text);
textM1 := copy(text,1,i);
delete(text,1,i + 10);
i:=pos('[/\Memo2/\]',text);
textM2 := copy(text,1,i);
delete(text,1,i + 10);
textM3 := text;

(ungetestet !!)
den 3. seperator kannst du ja weglassen, denn dann kann ja nurnoch was für das letzte memo kommen...

ist nur ein lösungs ansatz, hoffe das ich helfen konnte.

hibbert