replace(all) ?

[civilcrucher]

So, ich habe mein Problem jetzt gelöst. Falls jemand mal ein ähnliches Problem hat, poste ich hier mal meine Lösung.

Delphi-Quellcode:

memo1.Lines.Clear;
memo1.Lines.LoadFromFile('werte\text.txt');
Memo1.Text:=StringReplace(Memo1.Text,';',#13#10,[rfReplaceAll,rfIgnoreCase]);
Memo1.Text:=StringReplace(Memo1.Text,'"','',[rfReplaceAll,rfIgnoreCase]);
i:=33;
while Memo1.Lines.Strings[i] <> '' do begin
  search:=FormatFloat('0/0/0/0/0/0/0/0',StrToInt(Memo1.Lines.Strings[i]));
  Memo1.Text:=StringReplace(Memo1.Text,Memo1.Lines.Strings[i],search,[rfIgnoreCase]);
  Memo1.Text:=StringReplace(Memo1.Text,'/',#13#10,[rfReplaceAll,rfIgnoreCase]);
  i:=i+19;
  end;

Memo1.Text:=StringReplace(Memo1.Text,'/',#13#10,[rfReplaceAll,rfIgnoreCase]);

Ich hoffe mal, jemand kann was damit anfangen. Ist nicht perfekt, funktioniert aber in meinem Fall ohne Probleme.