|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Dateifilter definieren
16. Feb 2020, 12:10
oder gleich
Delphi-Quellcode:
if (FFileType = TExtendedarray[0]) then
Node.Enabled := True
else begin
Lextension := ExtractFileExt(aRealName);
if SameText(FFileType,Lextension) then
Node.Enabled := True
else
Node.Enabled := False;
end;
Wobei, eine Konstante mit "T" ist doch ungewöhnlich.
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
Geändert von p80286 (16. Feb 2020 um 12:13 Uhr)
|