Check out the ExtractFileName function and it's cousins.  I think that it
will result in code that is safer across different versions of windows and
will handle all filenames etc

Wes Edwards

-----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/

Wes Edwards
Steadfast Technology
+64 21 417-307
www.SteadfastTechnology.com


---------------------------------------------------------------------------
    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