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

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.

[phlux]

Weil du deiner Procedure einen Klassennamen TStringList übergibst...

Edit: Da muss ein Object vom Typ TStringList rein, aber nicht der Klassenname ;)

[Nicodius]

statt

Delphi-Quellcode:

FindAll('c:/', TStringList);

musst du

Delphi-Quellcode:

FindAll('c:/', Den_namen_einer_TStringlist_komponente);

[G G]

hm danke, aber irgendwie weiß ich nicht so recht was der name meiner "Den_namen_einer_TStringlist_komponente" was ist das, weil "list" als nahme meiner listbox kann ich nicht verwenden.
sorry das ich so dumm frag hab erst knapp über 2 wochen delphi :roll:

[Chewie]

List.Items ist vom Typ TStringList.

[G G]

hm da kommt jetzt der fehler
[Fehler] Unit1.pas(30): Inkompatible Typen: 'TStringList' und 'TStrings'

[Alexander]

Dann ändere einfach den Typ in der Finall-Procedure in TStrings um (statt TStringlist).

Delphi-Quellcode:

procedure FindAll(Path: String; List: TStrings);
begin
...
end;

[Nicodius]

mit dem "Den_namen_einer_TStringlist_komponente" meinte ich zumbeispiel Stringlist1(oben vereinbart var Stringlist1 : TStringlist)

.. ;)


aber list geht nicht weil es ein reserviertes Wort ist! also ... anderer Name ;)

[G G]

boa ich blicks grad garnicht :lol: is einer vielleicht so nett und schreibt mir einfach mal meinen geposteten code, in richtiger form hin. wär echt super... vielen vielen dank :P

[Dani]

Tach! :)
Vorher die Komponente auf deinem Formular mit dem Designer in "Listbox1" umbenennen...

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons; 

type 
  TForm1 = class(TForm) 
    Listbox1: TListBox; 
    BitBtn1: TBitBtn; 
    procedure BitBtn1Click(Sender: TObject); 
    
  private 
    { Private-Deklarationen } 
  public
    procedure FindAll(Path: String; Items: TStrings);  
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.BitBtn1Click(Sender: TObject); 
begin
 Listbox1.Clear; 
 FindAll('c:/', Listbox1.items); 
end; 



procedure TForm1.FindAll(Path: String; Items: TStrings); 
var 
  SearchRec: TSearchRec; 
begin
 If not Assigned(Items) then exit; 
  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then 
    repeat 
      Items.Add(SearchRec.Name); 
    until FindNext(SearchRec) <> 0; 
  SysUtils.FindClose(SearchRec); 
end; 
end.

Edit: Ups...hab was übersehen
Edit Nr5: Okay TListbox.items ist vom Typ TStrings und nicht TStringlist

[G G]

hm kommisch tauchen immernoch die 2 fehler auf
[Fehler] Unit1.pas(31): Inkompatible Typen: 'TStringList' und 'TStrings'
[Fehler] Unit1.pas(14): Ungenügende Forward- oder External-Deklaration: 'TForm1.FindAll'
:gruebel:

[Nicodius]

DAS KANN SO JA NICHT GEHEN! :roll:

Delphi-Quellcode:

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

procedure FindAll(Path: String; Items: TStrings);

du mustt bei der unteren

Delphi-Quellcode:

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

;)

oben Findall(FindAll('c:/', Listbox1);

[Dani]

Hab's korrigiert ;)

[G G]

hm sorry das cih euch immernoch nerv, aber irgendwie will das einfach nicht funtkionieren. Ich hab jetzt grad eben das von dani versucht kommt aber dann der fehler:
[Fehler] Unit1.pas(31): Inkompatible Typen: 'TStringList' und 'TStrings'
wenn ich das von Nicodius verusche

Zitat:

oben Findall(FindAll('c:/', Listbox1);

dann kommt der fehler:
[Fehler] Unit1.pas(31): Inkompatible Typen: 'TStringList' und 'TListBox'

habs ihr noch ne idea :pale:

[Dani]

Ersetze alle TStringlists durch TStrings und es sollte gehen
-habs im Code geändert
Die Inkompatibilität von TStrings und TStringlist kann schon nerven :-/

[G G]

sehr schön danke, jetzt hauts perfekt hin.
bin euch was schuldig :cheers:
:dancer: :dancer2: :hello: :dancer: :dancer2:

[Christian Seehase]

Moin Zusammen,

@Nicodius:
Wenn ein Parameter als TStringList deklariert wird, so kann man alles übergeben, was vom Typ TStringList ist, oder davon abgeleitet. Analog gilt: Ist der Parametertyp TStrings, kann alles übergeben werden, was von TStrings abgeleitet wurde, also auch ListBox.Items und Stringlisten.