hi,
bei folgendem code bekomme ich einen fehler angezeigt:
Delphi-Quellcode:
procedure TForm1.loadcontent(name: String);
var sr: TSearchRec; album: TAlbum;
begin
if(FindFirst(ExtractFilePath(ParamStr(0))+'*.*',faDirectory,sr)=0) then
begin
repeat
if(sr.Attr and faDirectory = faDirectory) and not((sr.Name = '.') or (sr.Name = '..')) then
begin
album := TAlbum.Create;
album.dir_name := sr.Name;
with ListView1.Items.Add do
begin
caption := sr.Name;
data := album;
end;
end;
until FindNext(sr)<>0;
FindClose(sr);
end;
change_enabled;
//sl.SaveToFile(ExtractFilePath(ParamStr(0))+'\beispiel.txt');
end;
er bezieht sich auf den "FindFirst"-Teil unmittelbar nach dem ersten begin... der fehler heisst:
[Fehler] Unit1.pas(63): E2034 Zu viele Parameter
Was habe ich falsch gemacht??
OHJE SORRY!!! Hat sich erledigt... hab ne weitere funktion namens findfirst gehabt 