Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
[CODE]function getFileName(fileDir : string) : string; var fileName : string; tempNum, i : integer; tempChar : char; begin tempNum := 0; for I := Length(fileDir) downto 0 do begin tempNum := tempNum + 1; tempChar := fileDir[I-1]; if tempChar = '' then break; end; Result := RightStr(fileDir, tempNum); end;[/CODE] It … 
|