Два слова в одном тексте

← →
Gex88 (2006-11-07 07:25) [0]

Добрый день ! Помогите с задачей. Есть переменная Str которая ровняется " Владимир Владимирович" Как можно разделить имя от отчества ? Заранее благодарю.

← →
Palladin © (2006-11-07 07:40) [1]

Var n:Integer; s:String; strFirstName,strMidName:String; Begin s:=Trim(str); n:=Pos(" ",Trim(s)); strFirstName:=Copy(s,1,n-1); strLastName:=Copy(s,n+1,Length(s)); End;
PS не давай идентификаторам имя Str, бо есть такая функция

← →
Elen © (2006-11-07 07:41) [2]

> Gex88

Например паскалевским способом :
var i:integer;q,w,s:string; begin s:="Владимир Владимирович"; i:=1; while s[i]<>" " do inc(i); q:="Имя - "+copy(s,1,i); w:="Фамилия - "+copy(s,i,length(s)-i+1); caption:=q+" "+w; end;

← →
Elen © (2006-11-07 07:44) [3]

> Gex88

Ну и еще можно
ListBox1.Items.Delimiter:=" "; ListBox1.Items.DelimitedText:=<Твоя_переменка>;
Тогда ты получиш список вне зависимости от того вввел ли полностью ФИО или только ФИ 8)

← →
Gex88 (2006-11-07 07:46) [4]

Всем большое спасибо !!!

Palladin © (07.11.06 7:40) [1]
PS не давай идентификаторам имя Str, бо есть такая функция

С весьма сомнительной полезностью, если есть SysUtils.

Gex88 (07.11.06 7:25)

with TStringList.Create do
try
Text := StringReplace(Str, " ", sLineBreak, [rfReplaceAll]);
strFirstName := Strings[0];
strLastName := Strings[1];
finally
Free;
end;

> Loginov Dmitry © (07.11.06 07:50) [5]

Весьма сомнительно, что используя str вне области видимости переменной str, чел сможет понять в чем ошибка компиляции. Это именно совет для начинающих.

Два слова в одном тексте Найти похожие ветки