GELÖST CheckListBox aus Textdatei befüllen

[Bernie110]

Hallo Zusammen,

kann mir jemand verraten wie man richtig eine CheckListBox aus einer Textdatei befüllt ?
In meiner Textdatei ist nur eine Liste mit Nachnamen ( Alle ohne Lerzeile)
Diese Namen möchte ich gerne in einer Checklistbox angezeigt bekommen.

Habs so versucht. Aber leider erscheint nur die Checkbox ohne den daneben geschriebenen Namen

Code: Alles auswählen

procedure TFrm_Admin_OpenForms.FormShow(Sender: TObject);
var i: Integer;
  List: TStringList;
  MainRoot : String;
begin
  List:=TStringList.Create;
  MainRoot := ExtractFilePath(Application.ExeName);
  try
    List.LoadFromFile(MainRoot + '\Programm_Dateien\TXT_OpenForms.txt');
    for i := 0 to List.Count-1 do
    CheckListBox1.Items.Add(List.Names[i]);

  finally
    List.Free;
  end;
 end; 

Danke i mvoraus für euere Hile.
Lg Bernie

[wp_xyz]

Wenn die Stringliste "Name=Wert"-Paare enthalten würde (also: Item1=abc), dann würde List.Names[ i ] den Namensteil, also den Teilstring vor dem =-Zeichen zurückgeben. Das ist bei dir aber nicht der Fall, daher nimm List.Strings[ i ], oder kürzer List[ i ], um den String direkt zu verwenden.

[Jorg3000]

Moin!
Das Resultat von ExtractFilePath() beinhaltet bereits einen abschließenden Backslash. Ist der führende Backslash vor deinem Unterverzeichnis vielleicht zuviel?
Und füge vor der Schleife mal ein: ShowMessage(List.Text) um zu sehen, ob das Laden überhaupt geklappt hat.
Grüße, Jörg

[Mathias]

Der Umweg über die List kann man sich sparen und die ListBox direkt befüllen.

CheckListBox1.Items.LoadFromFile('Unit1.pas');

[Bernie110]

Hallo Zusammen,

danke an alle.
wp_xyz empfehlung funktioniert.

Lg Bernie