Скачать: CL | DM;

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

← →
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]

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

---

← →
Loginov Dmitry ©   (2006-11-07 07:50) [5]

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;

---

← →
Palladin ©   (2006-11-07 08:01) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c