Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-95652
Не зарегистрированный чайник
2002-08-07 23:17
2002.08.29
Выборка данных!


1-95805
Hooch
2002-08-20 09:12
2002.08.29
DBGridEh


7-95999
matrixman
2002-06-16 19:30
2002.08.29
Каретка из двух половинок


7-95995
vap
2002-06-20 00:03
2002.08.29
Как получить адрес bitmap a экрана


4-96036
Proton
2002-06-23 19:40
2002.08.29
пункт меню help был прижат к правому краю





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский