Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
Delphi 2005 Personal
|
Re: prüfen ob String ein Ordner-Pfad ist
14. Mai 2006, 22:09
Bastel dir einfach selber was:
Delphi-Quellcode:
function isdirname(s:string):boolean;
var
i:integer;
begin
result:=false;
if length(s)<2 then exit;
if not ((pos(s[1],'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ')>0) and (s[2]=':')) then exit;
result:=true;
if length(s)=2 then exit;
result:=result and (s[3]='\');
for i:=4 to length(s) do
result:=result and (pos(s[i],'alle gültigen Zeichen eben'+'\')>0);
end;
Michael Enßlin Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates
|