Merhabalar;
Anladığım kadarıyla sadece adlarının aynı olmasını istiyorsun. Alttaki kod işini görebilir.
Kod: Tümünü seç
function isimbul(Value: String): String;
var
i, a: Integer;
kalanmetin: String;
begin
a := AnsiPos(' ', Value);
kalanmetin := Copy(Value, a+1, length(Value)-a);
if AnsiPos(' ', kalanmetin)>0 then
begin
isimbul(kalanmetin);
end
else
result := Copy(Value, 1, length(Value)-a-1);
end;
Böylelikle sadece ismi elde ettik. 2 ve ya 3 isim varsa tüm isimleri alacaktır bu kod.
Örnek: Ahmet Ali MURATOĞLU --> Ahmet Ali
Örnek: Yunus Emre Selim BORA --> Yunus Emre Selim
isim-soyisim kolonlarını ayrı tutmadıysan diye yazdım, anlamayadım, daha sonra:
Kod: Tümünü seç
var
yenikayit:integer;
eskifisno: integer;
ayniadvarmi: boolean;
begin
Table1.First;
While not Table1.Eof do
begin
table2.First;
ayniadvarmi:=false;
while not table2.eof do
begin
if table2ADI.Value=Table1ADI.Value then
begin
ayniadvarmi:=true;
eskifisno:=Table2FISNO.Value //<--- Anlamışsındır burayı..
end;
table2.next;
end;
if ayniadvarmi=false then
begin
Table2.Last;
yenikayit:=StrToInt(DBEdit8.Text)+1 ;//dbedit8.text fişno
Table2.Insert;
DBEdit6.Text:=Table1ADI.Value;
DBEdit7.Text:=Table1SOYADI.Value;
DBEdit8.Text:= IntToStr(yenikayit);
Table2.Post;
Table1.delete;
end
else
begin
Table2.Last;
Table2.Insert;
DBEdit6.Text:=Table1ADI.Value;
DBEdit7.Text:=Table1SOYADI.Value;
DBEdit8.Text:= IntToStr(eskifisno);
Table2.Post;
Table1.delete;
end;
end;
end;
Umarım işini görür.
