Stringreplace aus Textinhalt

[haentschman]

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;