| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Работа со строками [D6, Win95/98]

XPatriot ©   (2002-08-16 17:21:00) 

Народ, как удалить из строки весь текст, который идет после пробела.

---

Esu   (2002-08-16 18:51:00) [1]

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;

---

nikolo   (2002-08-16 18:09:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if Pos(" ", s) > 0 then
Delete(s, Pos(" ", s), (Length(s)-Pos(" ", s))+1);
end;

---

XPatriot   (2002-08-16 17:34:00) [3]

Всем спасибо, сейчас попробую...

---

Dmitriy Polskoy   (2002-08-16 17:31:00) [4]

2 XPatriot ©
Если пробел один, тогда вот так:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := "aaa aaaa";
ShowMessage(s);
SetLength(s, Pos(" ",s) - 1);
ShowMessage(s);
end;

---

Skier   (2002-08-16 17:30:00) [5]

>XPatriot
Тебе поможет следущее :
- Pos(...)
- Delete(...)

---

Наверх