Moin...
http://docwiki.embarcadero.com/Libra....StringReplace
Zitat:
StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
Zitat:
StringReplace(slist.Text , liste , [rfReplaceAll]);
...fällt dir was auf?
PS: Ressourcen Schutzblöcke sind enorm wichtig!
Zitat:
Die Anweisung try...finally
In manchen Situationen muss sichergestellt sein, dass bestimmte Operationen auch bei Auftreten einer
Exception vollständig abgeschlossen werden. Wenn beispielsweise in einer Routine eine Ressource zugewiesen wird, ist es sehr wichtig, dass sie unabhängig von der Beendigung der Routine wieder freigegeben wird. In diesen Fällen können try...finally-Anweisungen verwendet werden.
Das folgende Beispiel zeigt, wie eine Datei auch dann wieder geschlossen werden kann, wenn beim Öffnen oder Bearbeiten eine
Exception auftritt:
Reset(F);
try
... // Datei F verarbeiten
finally
CloseFile(F);
end;