Aus Textfile in Combobox laden

[Mark90]

Hi leute.

ich habe eine TExtdatei in der ich verschiedene informationen speichere.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: Tstringlist;
  hlp: string;
begin
  sl := Tstringlist.create;// hier lade ich zeile für zeile in eine combobox
  sl.LoadFromFile('save.txt');
  for i := 0 to ComboBox1.Items.Count - 1 do begin
       hlp := sl.Strings[i];
       combobox1.Items.Add(hlp);

  end;

end;

leider funzt das nicht. meine combobox wird nicht geladen.

danke schon im vorraus

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: Tstringlist;
  hlp: string;
begin
  sl := Tstringlist.create;// hier lade ich zeile für zeile in eine combobox
  sl.LoadFromFile('save.txt');
  for i := 0 to sl.Count - 1 do begin   // sl.count
       hlp := sl.Strings[i];
       combobox1.Items.Add(hlp);

  end;

end;

Die ComboBox ist zu Anfang ja noch leer.

Einfacher geht es vielleicht so:

Delphi-Quellcode:

ComboBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'save.txt');

Grüße
Klaus

[DeddyH]

Delphi-Quellcode:

sl := Tstringlist.create;
ComboBox1.Items.BeginUpdate;
try
  sl.LoadFromFile('save.txt');
  ComboBox1.Items.Assign(sl);
finally
  sl.Free;
  ComboBox1.Items.EndUpdate;
end;

[Bernhard Geyer]

Delphi-Quellcode:

combobox1.Items.LoadFromFile('save.txt');

[DeddyH]

Klar, da hab ich gar nicht dran gedacht :wall:

[s-off]

Hallo,

Deine Combobox ist leer, daher greift ein Zähler darauf nicht.

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   i: integer;
   sl: Tstringlist;
Begin
   sl := Tstringlist.create;
   Try
      sl.LoadFromFile('save.txt');
      For i := 0 To sl.Count - 1 Do Begin
         combobox1.Items.Add(sl.Strings[i]);
      End;
   Finally
      FreeAndNil(sl);
   End;
End;

[Mark90]

danke schon mal für die antworten. nur wie setzte ich den zähler bei der combobox auf null?

außerdem würde combobox1.items.loadfromfile("save.txt") nicht gehen, da ich jeden string noch ändere.

[DeddyH]

Welcher Zähler?

[Klaus01]

Zitat:

Zitat von Mark90

danke schon mal für die antworten. nur wie setzte ich den zähler bei der combobox auf null?

außerdem würde combobox1.items.loadfromfile("save.txt") nicht gehen, da ich jeden string noch ändere.

Nun, das war in Deinem obigen Beispiel nicht ersichtlich.

Delphi-Quellcode:

ComboBox1.Items.clear;

sollte zum Löschen der Liste reichen.
Dann sollte auch count auf 0 sein.

Grüße
Klaus

[DeddyH]

Und wenn Du es machst, wie ich unter #3 gepostet habe, brauchst Du Dich um den Zähler nicht zu kümmern ;)