Aus TStringList laden

[Martin.Ghosts]

Der Titel ist nich optimal formuliert, mir fiel aber nichts besseres ein.
Hier ein Ausschnitt aus dem Quelltext:

Delphi-Quellcode:

var laden: TStringList;

repeat
  begin
    laden.Strings[i]:=laden.Strings[i+1];
    i:=i+2;
  end;
until(i>laden.Count);

In i steht z.B. Form4.Edit1.Text. Also soll in Form4.Edit1.Text der Inhalt aus laden.Strings[i+1] stehen. Wie kann ich dieses Problem lösen?
Vielen dank schon mal.

[malo]

Vielleicht kannst du ja mit FindComponent was basteln. Allerdings muss ich zugeben, dass ich noch nicht ganz verstanden hab, was du genau machen willst

[Martin.Ghosts]

Ich habe alle Felder eines Formulars in einer txt-Datei gespeichert:

z.B.:
Form4.Edit1.Text /// gibt den Namen des Editfeldes an
120 /// gibt den Inhalt des Editfeldes an
Form4.Edit2.Text
Text
Form4.ComboBox1.Text
Text
usw.


Nun möchte ich alles wieder laden:
Der Inhalt des Editfeldes Form4.Edit1.Text soll lauten 120
usw.

Und zum selbst Zusammenbasteln. Ich habe erst seit einem halben jahr Info. So auf die Schnelle kann ich da nichts machen.

[Phistev]

Delphi-Quellcode:

var laden: TStringList;

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

Lass nur das .Text in der txt weg

/edit: Und das Form4 besser auch

[Martin.Ghosts]

Fogende Fehlermeldung: Undefinierter Bezeichner: 'Text'

[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.

[Martin.Ghosts]

Bei mir passiert nix. Ich hab jetzt mal was mit showmessages gemacht und da kam folgendes bei rum:

Delphi-Quellcode:

showmessage(laden[i])                                               ///Form4.Edit1
showmessage((Application.FindComponent(laden[i]) as TEdit).Text)    ///nix

Kann damit jemand was anfangen?

[Christian Seehase]

Moin Martin,

sorry, Denkfehler von mir

Wenn Du verschiedene Formulare hast und Felder hast, musst Du den String erst einmal trennen:
(Annahme: Es liegt immer die Aufteilung <Formularname>.<Editname> vor)

Delphi-Quellcode:

var
  frm : TForm;
  edt : TEdit;

begin
  // Nur der Kern der Schleife

  // Gewünschtes Formular ermitteln, dessen Name sollte bis zum . stehen
  frm := Application.FindComponent(copy(laden[i],1,pos('.',laden[i])-1)) as TForm;
  if frm <> nil then begin // Formular gefunden
    // jetzt das Editfeld ermitteln
    edt := frm.FindComponent(copy(laden[i],pos('.',laden[i])+1,MaxInt)) as TEdit;
    if edt <> nil then begin // Edit gefunden
      ShowMessage(edt.Text);
    end;
  end;
end;

[Martin.Ghosts]

Tut mir leid wenn ich hier keine Peilung hab. Ich fühl mich schon schlecht weil andere für mich dei Arbeit machen vielen Dank noch mal an der Stelle.

hier nochmal der ganze Quelltext:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);

var laden: TStringList;
    frm: TForm;
    edt: TEdit;
    i: Integer;

begin
  laden:=TStringList.Create();
  Form4.Show;
  if ((FileExists('Tabelle\'+Form1.Button8.Caption+'. '+Form1.ComboBox1.Text+' '+Form1.SpinEdit1.Text+'.'+Form1.ComboBox2.Text+'.txt'))=true) then
    begin
      laden.LoadFromFile('Tabelle\'+Form1.Button8.Caption+'. '+Form1.ComboBox1.Text+' '+Form1.SpinEdit1.Text+'.'+Form1.ComboBox2.Text+'.txt');
      i:=0;
      repeat
        begin
          showmessage('a'+IntToStr(i));
          frm:=Application.FindComponent(copy(laden[i],1,pos('.',laden[i])-1)) as TForm;
          showmessage('b'+IntToStr(i));
          if frm <> nil then
            begin
              showmessage('c'+IntToStr(i));                                            /////nach c6 fehler
              edt:=frm.FindComponent(copy(laden[i],pos('.',laden[i])+1,MaxInt)) as TEdit;
              showmessage('d'+IntToStr(i));
            end;
          i:=i+2;
        end;
      until(i>laden.Count-1);
    end
  else
    begin
      Form4.Edit1.Text:=Form1.Button8.Caption;
      Form4.Caption:=Form4.Edit1.Text+'. '+Form1.ComboBox1.Text+' '+Form1.SpinEdit1.Text;
    end;
  laden.Free;
  Form4.GroupBox1.SetFocus;
  Kaloriensoll;
end;

folgendes steht in der txt-Datei(Anfang):

Form4.ComboBox0

Form4.SpinEdit0

Form4.Edit0

Form4.ComboBox1<-----------------------hier kommt der fehler (c6 s.o.) 'Ungültige Typumwandlung'

Form4.SpinEdit1
100
Form4.Edit1
1