Probleme mit StringList

[Popov]

Der Fehler ist wohl inzwischen klar. Du kannst ListBox aber auch direkt füllen.

Delphi-Quellcode:

// StringList abfüllen aus Datei
function StringListFuellen(List: TStrings; Datei: String): Boolean;
begin
  if fileexists(datei) then
    begin
       List.LoadFromFile(Datei);
       Result:=true;
    end
  else
    begin
       Result:=false;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not StringListFuellen(ListBox1.Items, 'c:\abc\def.txt') then
    MessageDlg('Fehler beim Laden', mtError, [mbOK], 0);
end;

Oder

Delphi-Quellcode:

// StringList abfüllen aus Datei
function StringListFuellen(List: TStringList; Datei: String): Boolean;
begin
  if fileexists(datei) then
    begin
       List.LoadFromFile(Datei);
       Result:=true;
    end
  else
    begin
       Result:=false;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    if not StringListFuellen(sl, 'c:\abc\def.txt') then
      MessageDlg('Fehler beim Laden', mtError, [mbOK], 0);


  finally
    sl.Free;
  end;
end;