Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Вниз
Как убрать точку Найти похожие ветки
← →
Мурзик (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
← →
Плохиш © (2007-10-09 18:57) [21]
> Мурзик (09.10.07 17:50) [16]
Зачем оно тебе, это программирование?
← →
Anatoly Podgoretsky © (2007-10-09 19:33) [22]> Мурзик (09.10.2007 17:59:19) [19]
Это допустимый символ в именах файлов.
← →
Германн © (2007-10-09 20:25) [23]<offtop>
Не люблю кошек и котов.
P.S. Ну и готовить их не умею. :-)
</offtop>
← →
азлк (2007-10-09 20:30) [24]читай хелп это очень просто
← →
Dib@zol © (2007-10-10 12:26) [25]Бугога, упалпацтол. Развеселил ;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;
А вообще на будущее - читай Фаронова. Или бросай программирование )))
← →
Dib@zol © (2007-10-10 12:28) [26]Ах да, забыл:
...
var P:Cardinal;
begin
Result:=false;
If pos(Src, Tgt)<>0 then exit;
...
Вот.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.079 c
