Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

To slash or not to slash? :-)   Найти похожие ветки 

 
WhiteGuy   (2005-01-05 00:24) [0]

Здорово, мужики!
Такой трабл:
мне нужно разрезать файл, записать его и т.п. и т.д.
В общем, куски этого файла надо записать в папку - edit2.text. Прикол в том, что если в конце пути не прописать слэш (\), то файл запишется неизвестно  куда... короче как мне сделать так, чтоб моя прога проверяла, есть ли в конце \ или нет.. Сначала я думал просто сделать edit2.text:=edit2.text+"\" - работает, ЕСЛИ юзверь не поставит САМ этот слэш... Можно peace of code, плиз? 8-)


 
sniknik ©   (2005-01-05 00:31) [1]

if edit2.text <> "" then
 if edit2.text[length(edit2.text)] <> "\" then edit2.text:=edit2.text+"\";


 
Andrewp ©   (2005-01-05 00:33) [2]

так можно получить последний символ в строке:
path[length(path)]
где path путь


 
iskatel   (2005-01-05 00:33) [3]

extern PACKAGE AnsiString __fastcall IncludeTrailingPathDelimiter(const AnsiString S);

Description

IncludeTrailingPathDelimiter ensures that a path name ends with a trailing path delimiter ("\"). If S already ends with a trailing delimiter character, it is returned unchanged; otherwise S with appended delimiter character is returned.

Note: IncludeTrailingPathDelimiter works with multibyte character sets.

ну на дельфях мож синтаксис другой :-)


 
iskatel   (2005-01-05 00:36) [4]

ЗЫ

IncludeTrailingBackslash()

для старых версий :-)


 
WhiteGuy   (2005-01-05 00:50) [5]

Спасиб, мужики! Не успел написать вопрос - как уже натайпали ответ! Вы что, телепаты? :-)


 
WhiteGuy   (2005-01-05 01:05) [6]

Верняк, работает! Даж не знаю, как блягодарить! Короче, с меня причитается! 8-)



Страницы: 1 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.117 c
1-1105516584
Zilog
2005-01-12 10:56
2005.01.23
Посоветуйте статью, где описано как писать плагины для своей прог


6-1099553252
SDF
2004-11-04 10:27
2005.01.23
TWebBrowser и время ответа сервера


1-1105539217
NeDum
2005-01-12 17:13
2005.01.23
ProgressBar


1-1105005494
Progh
2005-01-06 12:58
2005.01.23
Работа с TListView


9-1097567163
delphiman
2004-10-12 11:46
2005.01.23
виртуальная комната