Das ist eine menge "input"
ich habe zwischenzeitlich google versucht zu befragen, da kam dann so etwas heraus:
Zitat:
procedure TForm1.Button1Click(Sender: TObject);
const Anzahl : integer = 20;
var sl: TStringlist;
i : integer;
begin
if SaveDialog1.Execute then
begin
sl:= TStringlist.Create;
for i:=1 to Anzahl do
begin
sl.Add(TEdit(FindComponent('Edit'+IntToStr(i))).Te xt);
end;
sl.SaveToFile(SaveDialog1.Filename);
sl.free;
end;
end;
Da scheint auch der dialog an sich vorhanden zu sein.