Satırdan bilgi okumak

[MoSoft]

Selam memoda 6000 kadar satır var. Bu satırlar şu şekilde İsimler war.
Soyadı xxxxx Adı şeklide . Ben bu satırları Adı xxxxx Soyadı şeklinde yardırmak istiyorum bunun için nası bi kod yazmam lazım baya uğraştım başım ağrımaya başladı. Arada gerçekten beş tane xxxxx var. Ben beş tane xxxxx ten sonrasını yazdırabiliyorum ama öncesini alıp değiştiremiyorum.
Yani adını alabiliyorumda soyadını alamıyorum.

Soyadı xxxxx Adı bunu
Adı xxxxx Soyadı şeklinde yazdırmam lazım 6700 satır . Şimdiden sağolun.

[spiderman]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to memo1.lines.count-1 do
     memo1.lines.strings[i] := copy(memo1.lines.strings[i],Pos('xxxxx', memo1.lines.strings[i])+6,10000)
     + ' xxxxx ' + copy(memo1.lines.strings[i], 1, Pos('xxxxx', memo1.lines.strings[i])-2);
end;

[MoSoft]

allah razı olsun spiderman çok sağol.

[spiderman]

sendende Allah razı olsun dostum