Разделение 2-х слов в строке

[856100]

Здраствуйте.
У меня такая проблема:
Есть строка из 2-х слов, которые разделены пробелом.
Надо сделать так, чтобы в одной переменной было первое слово, а во второй переменной второе слово.
Заранее Спасибо.

[evg_m]

pos copy F1 можно еще добавить сюда trim

[Arkuz]

например:

dlina:= length(s);      // функция нахождения длины строки
for i:=1 to dlina do
begin
 if i:='  ' then s1:=copy(s,1,i-1);    // в s1 присваиваем часть слова до пробела 
 s2:=copy(s,i+1,dlina-i);                    //в s2 присваиваем часть слова от пробела до конца
end;

[856100]

Ошибка в if i:=' ' then s1:=copy(s,1,i-1);

Не совместимы integer и string

И если можно еще пример.

[eoln]

Сообщение от Arkuz

например:

dlina:= length(s);      // функция нахождения длины строки
for i:=1 to dlina do
begin
 if i:='  ' then s1:=copy(s,1,i-1);    // в s1 присваиваем часть слова до пробела 
 s2:=copy(s,i+1,dlina-i);                    //в s2 присваиваем часть слова от пробела до конца
end;

Нет, не верно. Если уж цикл использовать, то так

dlina:= length(s);
for i:=1 to dlina do
if s[i]='  ' then 
begin 
 s1:=copy(s,1,i-1); 
 s2:=copy(s,i+1,dlina-i);
end;

Но уж лучше pos

d := pos(' ', s);
s1 := copy(s, 1, d);
s2 := copy(s, d+1, length(s) - d);

[EdNovice]

Функция ExtractStrings!

[allmaestro]

Какие параметры?

[856100]

Сообщение от eoln

Нет, не верно. Если уж цикл использовать, то так

dlina:= length(s);
for i:=1 to dlina do
if s[i]='  ' then 
begin 
 s1:=copy(s,1,i-1); 
 s2:=copy(s,i+1,dlina-i);
end;

Но уж лучше pos

d := pos(' ', s);
s1 := copy(s, 1, d);
s2 := copy(s, d+1, length(s) - d);

Спасибо огромное!!!
p.s.
Но лучше так:

d := pos(' ', s);
s1 := copy(s, 1, d-1);
s2 := copy(s, d+1, length(s) - d);[/

[Arkuz]

не проверял просто... ну извините, если кому жизнь сломал этим кодом )))))))

[856100]

Я имел ввиду мелкую ошибку в коде.
Мне подходят 2 варианта.
Спасибо огромное!!!!!!!!!!!!!