Alle Editfelder in txt speichern

[Martin.Ghosts]

Hallo, ich habe schon das gleiche Thema unter http://www.delphi-forum.de/viewtopic.php?t=55722 gestellt. Wollte jetzt mal hier fragen, ob mir jemand weiterhelfen kann.

[volkerw]

So sollte das funktionieren:

Delphi-Quellcode:

Speicher.Add(TComboBox(FindComponent(ComboBox + IntToStr(i))).Text);

[sniper_w]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  StringList:TStringList;
begin
  StringList := TStringList.Create();
  StringList.BeginUpdate();
  for i:=0 to ComponentCount-1 do
  begin
    if Components[i] is TEdit then
    begin
      StringList.Add( TEdit(Components[i]).Text );
    end;
    if Components[i] is TComboBox then
    begin
      StringList.Add( TComboBox(Components[i]).Text );
    end;
  end;
  StringList.EndUpdate();
  StringList.SaveToFile( 'c:\myEditFelder.txt' );
end;

[Martin.Ghosts]

Zu volkerw:
Hier tritt folgendes Problem auf:
undefinierter Bezeichner 'ComboBox'

Zu sniper_w:
Hier ist das Problem ähnlich:
undefinierter Bezeichner 'Text' unter:

Delphi-Quellcode:

StringList.Add( TEdit(Components[i]).Text );

Hab leider noch nicht so lange Informatik und weis jetzt nicht wie ich weitermachen soll.

[toms]

Zitat:

Zitat von Martin.Ghosts

Zu volkerw:
Hier tritt folgendes Problem auf:
undefinierter Bezeichner 'ComboBox'

Müsste so aussehen:

Delphi-Quellcode:

Speicher.Add(TComboBox(FindComponent('ComboBox' + IntToStr(i))).Text);

[Martin.Ghosts]

Super, dass funktioniert so.

Vielen Dank an alle :thumb:

[sniper_w]

Zitat:

undefinierter Bezeichner 'Text' unter:

:shock: .Dieser Bezeichner wurde mir von CodeCompletion angeboten. Auserdem gibt es diesen Bezeichner auch in OI. Und Text ist eine Eigenschaft die FAST alle VCL Komponenten ( die Text auf dem Bidlsschirm ausgeben ) besitzen.

[SirThornberry]

vielleicht liegt es an der Delphiversion die Martin.Ghosts verwendet. Leider könn wir da nur vermutungen anstellen da keine delphiversion angegeben wurde.

[Martin.Ghosts]

Es handelt sich um Delphi 7.