Jak obciąć stringa aż do napotkania znaku "/". Wiem jak obcinać o kilka znaków ale jak to zrobić kiedy chce by np.
to:
D:\Gry\LFS\LFS.exe
zmieniło się w to:
D:\Gry\LFS\
pomożecie ?
Delphi 
- Rejestracja:ponad 14 lat
- Ostatnio:prawie 10 lat
0
do tego konkretnego problemu:
ExtractFilePath('D:\Gry\LFS\LFS.exe')
edytowany 1x, ostatnio: unikalna_nazwa
Dzięki wielkie działa jak natura chciała :D :D
- Rejestracja:ponad 13 lat
- Ostatnio:około 4 godziny
- Lokalizacja:Tuchów
- Postów:12171
0
Lub ręcznie:
function ExtractFilePath(FileName: String): String;
var
I: Word;
begin
Result := '';
for I := Length(FileName) downto 1 do
if FileName[I] = '\' then
begin
Result := Copy(FileName, 1, I);
Exit;
end;
end;
lub tak (jak napisał @kAzek);
function ExtractFilePath(FileName: String): String;
begin
Result := Copy(FileName, 1, LastDelimiter('\', FileName));
end;
edytowany 2x, ostatnio: flowCRANE
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.