Probleme mit StringList und for schleifen

[Sharky]

Ähmmm....

das darf überhaupt nicht Compiliert werden!!!

sl3.create gibt es doch nicht.
Schaue Dir mal diesen Code von mir an:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  slFileNames := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  slFileNames.Free;
end;

procedure TForm1.CounteLines(const aFileName: string; aOutPut: TStrings);
var
  ndx:      integer;
  slCount:  TStringList;
begin
  slCount := TStringList.Create;
  try
    slFileNames.LoadFromFile(aFileName);
    for ndx := 0 to Pred(slFileNames.Count) do
    begin
      slCount.LoadFromFile(slFileNames.Strings[ndx]);
      aOutPut.Add(IntToStr(slCount.Count));
    end;
  finally
    slCount.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName : string;
begin
  FileName := 'Name der Datei mit der Liste';
  CounteLines (FileName,ListBox1.Items);
end;

P.S.: Verwende doch bitte die Delphi-Tags und nicht die Code-Tags.