VB de şu şekide yazan kodu delphiye uyarlayamadım.
Uyuşmazlık var.
yorumlarınız nelerdir.
Kod: Tümünü seç
Print #1, genel_rs30.GetString(adClipString, 5000, vbTab, vbCrLf, "");
Bu arada kodum delphi de ;
Kod: Tümünü seç
Writeln(Dosyam,FieldByname('KODU').value:1,#9,FieldByname('COLUMN1').value:1,#9, FieldByname('COLUMN2').value:1,#9, FieldByname('YDK').value:1,#9,
FieldByname('COLUMN3').value:1,#9,FieldByname('YDK').value:1,#9, FieldByname('COLUMN4').value:1,#9, FieldByname('COLUMN5').value:1);