Hallo, ich will mal im Sinne von
Zitat:
Die Code-Bibliothek ist um so wertvoller, je mehr Einträge sie zu bieten hat.[...]
mal ein paar Codzeilen aus meiner Sammlung veröffentlichen.
Der folgende code prüft die Richtigkeit eines eingegebenen Dateinamens:
hinter die Uses Clausel folgenden Code einfügen:
Delphi-Quellcode:
const
ShortForbiddenChars: set of char = [';', '=', '+', '<', '>', '|', '"', '[', ']', ' ', '\', #39, '?'];
LongForbiddenChar: set of char = ['/', ':', '*','<','>', '|', #39, '\', '?'];
Delphi-Quellcode:
//Schaut, ob ein gültiger Dateiname eingegeben wurde.
function CheckFilename(Filename:
string;
Win32: Boolean): Boolean;
var
NameValid: boolean;
i: Integer;
begin
NameValid:=true;
if Win32 then
begin
for i := 1
to length(Filename)
do
if Filename[i]
in LongForbiddenChars
then
NameValid:=false;
end else
begin
for i := 1
to length(Filename)
do
if Filename[i]
in ShortForbiddenChars
then
NameValid:=false;
end;
Result:=NameValid;
end;
Über Anregungen und Änderungen freue ich mich immer wieder.
weitere Suchbegriffe: gültig ungültig
[edit=Chakotay1308]'?' hinzugefügt. Mfg, Chakotay1308[/edit]
[edit=Matze]Code formatiert. Mfg, Matze[/edit]
[edit=Dax]Highlighting korrigiert. Mfg, Dax[/edit]
[edit=Matze]Suchbegriff hinzugefügt. Mfg, Matze[/edit]