Problem mit listbox (verstehe die warnung nicht)

[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'

[Nicodius]

DAS KANN SO JA NICHT GEHEN!

Delphi-Quellcode:

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

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

du mustt bei der unteren
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

[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

[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.