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