And/Or get a dir path with ExtractFileDir(strings[tval]) Sergei
> -----Original Message----- > From: [EMAIL PROTECTED] [mailto:owner-delphi@;delphi.org.nz]On > Behalf Of Alister Christie > Sent: Thursday, 24 October 2002 9:45 AM > To: Multiple recipients of list delphi > Subject: Re: [DUG]: Is this bad programming practice or what? > > > You could check with a DirectoryExists(strings[tval]) or something > > Alister > > Alistair George wrote: > > 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/
