You might be safer using DirectoryExists and FileExists to test these

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:owner-delphi@;delphi.org.nz] On
Behalf Of Alistair George
Sent: Thursday, 24 October 2002 12:26 p.m.
To: Multiple recipients of list delphi
Subject: [DUG]: Is this bad programming practice or what?


I need to parse strings which include files and directories. If they are
a directory then I append global files. My concern is (even though I
have never met one yet) a filename with NO extension. Would this be a
concern?? code follows:

for tval := 0 to memo1.Lines.Count - 1 do
  begin
    with memo1.Lines do
    begin
      if ansipos('.', strings[tval]) = 0 then     //its a directory
        Strings[tval] := ZipMaster1.AppendSlash(strings[tval]) + '*.*';
    end;
  end;

------------------------------------------------------------------------
---
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to