Как убрать точку

← →
Мурзик (2007-10-09 17:19) [0]

Привет всем! У меня следующий вопрос: в ListBox"e даны строки, есть на форме SaveDialog. При щелчке на кнопке имя файла у меня - это выделенная строка в ListBox"e. Так вот, как сделать так, чтоб в имени сохраняемого файла автоматически убирались точки.
Пример: в ListBox"e строка "Привет. Как дела". После нажатия на кнопку должно стать "Привет Как дела"...

← →
Маша Шрайбер © (2007-10-09 17:21) [1]

Ты не умеешь удалять символы из строковой переменной???

← →
clickmaker © (2007-10-09 17:21) [2]

Удалено модератором

← →
Мурзик (2007-10-09 17:21) [3]

Нет

← →
Мурзик (2007-10-09 17:22) [4]

а можно конкретный пример?

← →
clickmaker © (2007-10-09 17:22) [5]

> а можно

F1

← →
Мурзик (2007-10-09 17:23) [6]

Я новичек, можно часть кода?

← →
Маша Шрайбер © (2007-10-09 17:24) [7]

На этом сайте все новички такие?

← →
ASoft (2007-10-09 17:35) [8]

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

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

← →
Мурзик (2007-10-09 17:36) [9]

Ну я посмотрел в справке - а что толку то?

← →
clickmaker © (2007-10-09 17:38) [10]

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

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

← →
Мурзик (2007-10-09 17:41) [11]

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

← →
Игорь Шевченко © (2007-10-09 17:44) [12]

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

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

← →
clickmaker © (2007-10-09 17:44) [13]

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

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

← →
Мурзик (2007-10-09 17:46) [14]

допустим у меня на форме "Edit" & "Button" . в "Edit" текст: "блабла. все". Как сделать чтоб при нажатии на кнопку стало "блабла все"?

← →
Ping (2007-10-09 17:46) [15]

uses StrUtils;

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

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

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

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

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

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

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

← →
Anatoly Podgoretsky © (2007-10-09 17:54) [18]

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

← →
Мурзик (2007-10-09 17:59) [19]

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

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

← →
й1 (2007-10-09 18:33) [20]

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

AText - Edit
AFromText - &
AToText - Button

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

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

> Мурзик (09.10.2007 17:59:19) [19]

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

<offtop>
Не люблю кошек и котов.
P.S. Ну и готовить их не умею. :-)
</offtop>

← →
азлк (2007-10-09 20:30) [24]

читай хелп это очень просто

Бугога, упалпацтол. Развеселил ;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;

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

Ах да, забыл:
...
var P:Cardinal;
begin
Result:=false;
If pos(Src, Tgt)<>0 then exit;
...

Вот.

Как убрать точку Найти похожие ветки