Code: Alles auswählen
TMyFileIcons = record
file:string;
extention:string;
index:integer;
end;
// globale variable
var
winIcons:array of TMyFileIcons; // gespeichert wird das in einem array of TMyFileIcons;
//beim laden:
//
var
schonmal:boolean;
begin
for i := 0 to anzahl_der_files_in_dem_aktuellen_ordner do
begin
schonmal := False;
for i2 := 0 to high(winIcons) do // i2 = er testet beim laden, ob er die aktuelle endung schonmal geladen hat.
begin
if winIcons[i].extention = winIcons[i2].extention then
begin
schonmal := True;
break;
end;
end;
if schonmal then continue; // fals ja, dann wird das laden abgebrochen
// jetzt kann er laden.
end;
end;
Verein
Links
Suche