Скачать: CL | DM;

Работа со строками   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c