Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: 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 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
14-95981
BAY
2002-08-02 20:33
2002.08.29
Visual Studio


1-95759
N_M_A
2002-08-19 09:44
2002.08.29
Помогите начинающему!!!!!!


1-95764
-= Like =-
2002-08-19 15:20
2002.08.29
TListView...


7-95989
elgato
2002-06-19 11:10
2002.08.29
System Message


1-95871
Viacheslav
2002-08-17 22:29
2002.08.29
вопрос начинающего программиста