Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
Работа со строками Найти похожие ветки
← →
XPatriot (2002-08-16 17:21) [0]Народ, как удалить из строки весь текст, который идет после пробела.
← →
Skier (2002-08-16 17:30) [1]>XPatriot
Тебе поможет следущее :
- Pos(...)
- Delete(...)
← →
Dmitriy Polskoy (2002-08-16 17:31) [2]2 XPatriot ©
Если пробел один, тогда вот так:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := "aaa aaaa";
ShowMessage(s);
SetLength(s, Pos(" ",s) - 1);
ShowMessage(s);
end;
← →
XPatriot (2002-08-16 17:34) [3]Всем спасибо, сейчас попробую...
← →
nikolo (2002-08-16 18:09) [4]
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if Pos(" ", s) > 0 then
Delete(s, Pos(" ", s), (Length(s)-Pos(" ", s))+1);
end;
← →
Esu (2002-08-16 18:51) [5]
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
s := "Hello! zz"; //ну хоть что-то :)
i := Pos(" ", s); //так побыстрее будет
if i > 0 then
Delete(s, i, (Length(s)-i)+1);
ShowMessage(s);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c