mehrere zahlen aus einen string filtern?

[100nF]

hallo,

ich hatte grad zeit, darum hab ich mal ein bisschen gecodet...
ich denke es gibt schönere methoden, aber sie muss ja nicht mehr als funktionieren...
hier der code der dabei entstanden ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, max: integer; s, text: string;
begin
  text := // der text der durchsucht werden muss
  max :=  // wieviele edits gibts? oder: wieviele "wortx" gibts?

  s := text;
  for i:=1 to max do
    if pos('wort'+inttostr(i), s) <> 0 then
    begin
      delete(s, 1, pos('wort'+inttostr(i), s)+length('wort'+inttostr(i))+1);
      delete(s, pos(')', s), length(s));
      (findcomponent('Edit'+inttostr(i)) as TEdit).text := s;
      s := text;
    end;
end;

wichtig ist, dass wortx immer klein geschrieben ist. oder falls es gross sein soll musst du alle "wort" im code auch gross schreiben

gruss
urbanbruhin