Suchen und Ersetzen

[rennpunto]

Das zerlegen geht so:

procedure ZerlegeTerm; //Zerlegt den Term und ersetzt Zeichen "x" durch "f"-Wert
var
Eingebeterm: TStrings;
i:integer;
begin
frmPlotter.libSummanden.clear;
Eingebeterm := TStringList.Create;
frmPlotter.edtEingabe.text := StringReplace(frmPlotter.edtEingabe.text,
'-', '#-', [rfReplaceAll]); // "#" als Trennzeichen für Delimitter setzen
frmPlotter.edtEingabe.text := StringReplace(frmPlotter.edtEingabe.text,
'+', '#+', [rfReplaceAll]); // "#" als Trennzeichen für Delimitter setzen

Eingebeterm.Delimiter := '#';

Eingebeterm.DelimitedText := frmPlotter.edtEingabe.text;

for i:=0 to Eingebeterm.Count -1 do begin
frmPlotter.libSummanden.Items.Add(Eingebeterm.Stri ngs[i]);
frmPlotter.libSummanden.Items[i]:= StringReplace
(frmPlotter.libSummanden.Items[i],'x', FloatToStr(f), [rfReplaceAll]);
// Alle "x" durch f ersetzen
end;

frmPlotter.edtEingabe.text := StringReplace(frmPlotter.edtEingabe.text,
'#', '', [rfReplaceAll]); //"#"-Zeichen entfernen
end;


lib.Summanden ist eine Listbox, die ich nachher einfach ausblenden will. Aber was ich jetzt vorhabe mit dem ^1 ergänzen, amch ich besser als eigene Prozedur, oder?