Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как убрать точку [D7, XP]

Страницы: 1 2 >
Мурзик © (2007-10-09 17:19:00)
Привет всем! У меня следующий вопрос: в ListBox'e даны строки, есть на форме SaveDialog. При щелчке на кнопке имя файла у меня - это выделенная строка в ListBox'e. Так вот, как сделать так, чтоб в имени сохраняемого файла автоматически убирались точки.
Пример: в ListBox'e строка "Привет. Как дела". После нажатия на кнопку должно стать "Привет Как дела"...

Dib@zol (2007-10-10 12:28:00) [1]
Ах да, забыл:
...
var P:Cardinal;
begin
Result:=false;
If pos(Src, Tgt)<>0 then exit;
...

Вот.

Dib@zol (2007-10-10 12:26:00) [2]
Бугога, упалпацтол. Развеселил ;D Пасиба Мурзик;D

function ReplaceAllChars(var s:string; Src, Tgt:string):boolean;
var P:Cardinal;
begin
Result:=false;
repeat
P:=pos(Src, S);
if P<>0 then begin
Result:=true;
Delete(S, P, 1);
Insert(Tgt, S, P);
end;
until P=0;
end;

...

Пользовать так:

...

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=Edit1.text;
ReplaceAllChars(s, '.', '');
ShowMessage(s);
end;

А вообще на будущее - читай Фаронова. Или бросай программирование )))

азлк (2007-10-09 20:30:00) [3]
читай хелп это очень просто

Германн (2007-10-09 20:25:00) [4]
<offtop>
Не люблю кошек и котов.
P.S. Ну и готовить их не умею. :-)
</offtop>

Anatoly Podgoretsky (2007-10-09 19:33:00) [5]
> Мурзик (09.10.2007 17:59:19) [19]

Это допустимый символ в именах файлов.

Плохиш (2007-10-09 18:57:00) [6]

> Мурзик (09.10.07 17:50) [16]

Зачем оно тебе, это программирование?

й1 (2007-10-09 18:33:00) [7]

> > function AnsiReplaceText(const AText, AFromText, AToText:
> > string): string;А как это конкретно применить к "Edit" & "Button"?

AText - Edit
AFromText - &
AToText - Button

Мурзик (2007-10-09 17:59:00) [8]

> Точки не мешают сохранению в файле

я понимаю, но я хочу их удалять, допустим как винда удаляет недопустимые символы...

Anatoly Podgoretsky (2007-10-09 17:54:00) [9]
Точки не мешают сохранению в файле

Мурзик (2007-10-09 17:50:00) [10]

> function AnsiReplaceText(const AText, AFromText, AToText:
> string): string;

А как это конкретно применить к "Edit" & "Button"?

Мурзик (2007-10-09 17:50:00) [11]

> function AnsiReplaceText(const AText, AFromText, AToText:
> string): string;

А как это конкретно применить к "Edit" & "Button"?

Мурзик (2007-10-09 17:46:00) [12]
допустим у меня на форме "Edit" & "Button" . в "Edit" текст: "блабла. все". Как сделать чтоб при нажатии на кнопку стало "блабла все"?

Ping (2007-10-09 17:46:00) [13]
uses StrUtils;

function AnsiReplaceText(const AText, AFromText, AToText: string): string;

clickmaker (2007-10-09 17:44:00) [14]

> [11] Мурзик (09.10.07 17:41)

а что именно-то не понятно? неужели не интересно самому допереть?

Игорь Шевченко (2007-10-09 17:44:00) [15]

> ну можно продемонстрировать как работает эта фун. на элементарном
> примере?

Точно также как написано в F1

Мурзик (2007-10-09 17:41:00) [16]
ну можно продемонстрировать как работает эта фун. на элементарном примере?

clickmaker (2007-10-09 17:38:00) [17]

> [9] Мурзик (09.10.07 17:36)

смотришь в книгу - видишь фигу? )

Мурзик (2007-10-09 17:36:00) [18]
Ну я посмотрел в справке - а что толку то?

ASoft (2007-10-09 17:35:00) [19]

> Мурзик (09.10.07 17:23) [6]

подсказали ж, в [2].. и есть часть кода)) неужели трудно найти справку по этой функции, напомнили тебе в [5]..

Маша Шрайбер (2007-10-09 17:24:00) [20]
На этом сайте все новички такие?

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »