Stringlist, FindComponent und Edit Felder inkl deren inhalt

[sharkx]

ok ..
warum bei 0 anfangen? es gibt doch garkei Edit0 bei mir, also kann ich doch bei 1 anfangen? das eine mal durchlaufen habe ich mir doch gespart !

aber nichts desto trotz ...

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  List: TStringList;
  i: Integer;
  s: TComponent;
begin
  List := TStringList.Create;
  for i := 0 to 4 do
    begin
      s := FindComponent('Edit' + IntToStr(i));
      List.Add(s.Name); // <--- hier gibts nen error
    end;
  List.Free;

  CheckKey(List);
end;

function CheckKey(List: TStringList): boolean;
var
  i,x: Integer;
begin
  Result := false;

  for x := 0 to 4 do
    begin
      for i := length(List.Strings[x]) downto 1 do
        List.Strings[x] := Copy(List.Strings[x], 0, length(List.Strings[x]));
      ShowMessage(List.Strings[x]);
    end;
end;

funktioniert jedoch noch immer nicht


[edit] Wäre es nich sinnvoller das ganze in einen Stream zu laden?