Problem mit listbox (verstehe die warnung nicht)

**G G**

hi also ich hab folgenden code, aber da kommt zb da wo ich die proz aufrufe ein fehler,usw?
wie macht man das den richtig, muss ich bei uses noch was hinzufügen etc...
der fehler lautet :
[Fehler] Unit1.pas(30): Inkompatible Typen: 'TStringList' und 'Class reference'
vielen dank

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons;

type

  TForm1 = class(TForm)

    List: TListBox;

    BitBtn1: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure FindAll(Path: String; List: TStringList);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

FindAll('c:/', TStringList);

end;

procedure FindAll(Path: String; List: TStringList);

var 

  SearchRec: TSearchRec;

begin 

  List.Clear;

  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then 

    repeat

      List.Add(SearchRec.Name);

    until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);

end;

end.

Problem mit listbox (verstehe die warnung nicht)

Problem mit listbox (verstehe die warnung nicht)

Forumregeln