Cas Terazi Veri gönderimi Delphi sürüm sorunu

[KUNTAY]

Bu dönüşümden sonra şöyle bir sorun yaşıyorum.

chName1: Array[0..100] of AnsiChar;

Bu alana örnekte atama yaparken
strerr:=false; s1:=getrec(s, 4, #9); if strerr then goto l1;
StrPCopy(@(plu.chName1),s1);
Sadece değerin ilk harfini alıyor yani ELMA alması gerekirken E alıyor.

Delphi 2005 de kontrol ettiğim zaman ELMA nın tamamını alıyor.

Bir fikriniz varmı bu konuda.

---

(24-12-2021, Saat: 15:12)KUNTAY Adlı Kullanıcıdan Alıntı: Bu dönüşümden sonra şöyle bir sorun yaşıyorum.

chName1: Array[0..100] of AnsiChar;

Bu alana örnekte atama yaparken
       strerr:=false; s1:=getrec(s, 4, #9); if strerr then goto l1;
       StrPCopy(@(plu.chName1),s1);
Sadece değerin ilk harfini alıyor yani  ELMA alması gerekirken E alıyor.

Delphi 2005 de  kontrol ettiğim zaman ELMA nın tamamını alıyor.

Bir fikriniz varmı bu konuda.

Sorunu çözdüm dikkatimden kaçmış 

        StrPCopy(@(plu.chName1),StrToPAnsiChar(s1));