birleşik Ad soyadı ayırma

[mbz060]

Hacı Mehmet BOZKURT biçiminde yazılmış olan isimden BOZKURT kelimesini nasıl ayırabilirim.
yardımlarınız için şimdiden teşekkürler.

[fahrettin]

isim icindeki bosluk karakterlerini sayar. En son boşluk karakterinden en sona kadarki bolumu alirsiniz...

[lazio]

Kod: Tümünü seç

var
  str, xchar : string;
  x : integer;
begin
  str := 'hacı mehmet bozkurt';
  for x := 1 to length(str) do
  if copy(str, x, 1) = ' ' then
    xchar := x;
  newstr := copy(str, x +1, length(str) - x)
end;

denemedim ama çalışması lazım..

[mbz060]

Adı ve soyadı ayıracak kodu bilmiyorum. Yardımcı olursanınz sevinirim.

[Misafir]

sadece 3-4 mesaj aşağıda bahsettiğin işi görecek bir soru ve cevapları var.
lütfen beleşçi olmayalım değil mi?

[fahrettin]

Adı ve soyadı ayıracak kodu bilmiyorum.

Sayin mbz060 zaten kimse boyle bir kodu bilmiyor. İnsanlar ihtiyaç halinda oturup yaziyorlar.... Çok iyi bir ihtimal ile birinin daha önce yazmış olma ihtimali vardir.
Fakat boyle bir kodu yazmakta zorlanıyorsanız? Size nacizane tavsiyem mutlaka bu kodu kendiniz yazmaya uğraşmalısınız.... Zira aksi takrirde daha ileriye gitmek sizin için çok zor olacaktır....

[husonet]

Ben daha önceden yazmıştım. Aslında bu kodu vermeyi düşünmüyorum çünkü kötülük yapmış olacam fakat algoritma mantığını anlamanız için veriyorum. Ne yapmışım kodda inceleğin lütfen.

Kod: Tümünü seç

Function TersCevir(no:String):String;
var
    Cevrilen:String;
    i:Integer;
Begin
    i:= 0;
    Cevrilen := '';
    For i := length(no) DownTo 1 Do
    Begin
        Cevrilen := Cevrilen + no[i];
    End;
    Result := Cevrilen;
End;
procedure TForm1.Button1Click(Sender: TObject);
var
    Str,Ad,SoyAd:String;
    i,k:Integer;

begin
    Str := TersCevir(Edit1.Text);
    For i := 1 to Length(Str) do
    Begin
        if Str[i] = ' ' Then
        Begin
            For k := Length(Str) downto i do
            Begin
                Ad := Ad + Str[k]
            End;
            Break;
        End;
        SoyAd := SoyAd + Str[i]
    End;
    ShowMessage(ad);
    ShowMessage(terscevir(Soyad));
end;

Kolay Gelsin...