Aus TStringList laden

[Christian Seehase]

Moin Martin,

so könnte es gehen:

Delphi-Quellcode:

var laden: TStringList;

repeat
  begin
    (Application.FindComponent(laden[i]) as TEdit).Text:=laden[i+1];
    i:=i+2;
  end;
until(i>laden.Count);

In diesem Falle muss laden[i] (das .Strings hab' ich mal weggelassen, da die Strings als Standardeigenschaft von TStringList deklariert ist, und somit nicht mit angegeben werden muss) in der Form:

<Formularname>.<Editname>

enthalten sein, z.B. Form4.Edit1

Sicherer ist es so:

Delphi-Quellcode:

var 
  laden   : TStringList;
  edtWork : TEdit;

repeat
  begin
    edtWork := (Application.FindComponent(laden[i]) as TEdit);
    if edtWork <> nil then edtWork.Text := laden[i+1];
    i:=i+2;
  end;
until(i>laden.Count);

Hier wird erst einmal geprüft, ob das in laden[i] enthaltene Editfeld überhaupt gefunden werden konnte.