Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#4

Re: Eine Datei in 3 Memos laden

  Alt 30. Dez 2004, 12:23
naja, wenns ein text is besser net, da würde ich eher sowas wie [/\Memo1/\] nehmen

und dann das:

Delphi-Quellcode:
Sep[1]:='[/\Memo1/\]';
Sep[2]:='[/\Memo2/\]';
Sep[3]:='[/\Memo3/\]';
Temp.LoadFromFile('x.y');
Memo1.Text:=copy(Temp.Text,0,Pos(Sep[1],Temp.Text));
Memo2.Text:=copy(Temp.Text,Pos(Sep[1],Temp.Text)+length(Sep[1],Temp.Text),Pos(Sep[2],Temp.Text));
Memo3.Text:=copy(Temp.Text,Pos(Sep[2],Temp.Text)+length(Sep[2],Temp.Text),Pos(Sep[3],Temp.Text));
event. bei den pos und so nochn +1 oder -1 hin, aber der ansatz müsste es sein....

achso:
so markiert [/\Memo1/\] das ende des "Memo1-Textes"
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat