edit

← →
ashnurov © (2004-05-24 11:23) [0]

Подскажите. Допустим у меня в edit есть строка C:\123\123.exe
как сделать чтобы при нажатии на кнопку оставалось только С:\123\

← →
Sandman25+1 (2004-05-24 11:25) [1]

ExtractFilePath

← →
PVOzerski © (2004-05-24 11:29) [2]

Edit1.Caption:=ExtractFilePath(Edit1.Caption);

← →
SergP © (2004-05-25 23:30) [3]

> [2] PVOzerski © (24.05.04 11:29)

Наверное Edit1.Text....

← →
Fay © (2004-05-26 04:37) [4]

2SergP © (25.05.04 23:30) [3]

var Edit1 : TLabel; begin Edit1 := Label1; Edit1.Caption:=ExtractFilePath(Edit1.Caption); end;

8)

← →
Глеб (2004-05-26 04:40) [5]

ExtractFilePath или ExtractFileDir
:-)

← →
Fay © (2004-05-26 04:44) [6]

2Глеб (26.05.04 04:40) [5]
ExtractFileDir подойдёт только когда вернёт корневой каталог, т.к. "оставалось только С:\123\"

← →
Anatoly Podgoretsky © (2004-05-26 09:33) [7]

ExtractFileDir не подойдёт

← →
Глеб (2004-05-26 09:55) [8]

В каких-то случаях ExtractFileDir полезен

← →
PVOzerski © (2004-05-26 10:10) [9]

Естественно, я маленько ошибся: имея в виду text, написал caption :^) Хотя кто мне запретит обозвать, скажем, tlabel именем Edit1? :^)

← →
Anatoly Podgoretsky © (2004-05-26 11:02) [10]

Глеб (26.05.04 09:55) [8]
Полезность не оспаривается, только то что результат будет совсем не тот, который просит автор.

← →
ashnurov © (2004-05-26 11:55) [11]

а как убрать ещё и последний слеш т.е. чтобы осталось C:\123

← →
Song © (2004-05-26 12:04) [12]

> а как убрать ещё и последний слеш т.е. чтобы осталось C:\123

ExtractFileDir

← →
Gero © (2004-05-26 12:11) [13]

> а как убрать ещё и последний слеш т.е. чтобы осталось C:\123

if Pos then Delete

← →
Fay © (2004-05-26 12:41) [14]

>> if Pos then Delete
Для примера : c:\program files\Borland\Delphi5\Source

Тьфу, это у меня заскок, прошу прощения.
if S[Length(S)] = "\" then Delete(S, Length(S), 1);

>>Gero © (26.05.04 13:49) [15]

Велосипед уже придумали:
Во-первых, [12]. Во-вторых, ExcludeTrailingPathDelimiter() или ExcludeTrailingBackslash().

По моему, проще руками написать.

> Во-вторых, ExcludeTrailingPathDelimiter() или ExcludeTrailingBackslash().

хе. Я уж год как пытаюсь запомнить - и никак :-)

>>jack128 © (26.05.04 16:41) [19]

<offtopic>
Ну вот видишь. Дяди из Борланда заботятся ещё и о том, чтобы заодно и твою память тренировать :)
</offtopic>

edit Найти похожие ветки