PopUpMenu.caption karakter sayısı

[hakkus]

Merhabalar,
Aşağıdaki kod la table dan popUpMenu1 e items ekliyorum;

Kod: Tümünü seç

procedure TMainFrm.PopUpMenu1PopUp(Sender: TObject);
var
i:integer;
mi:tmenuItem;
begin
i:=0;
PopUpMenu1.Items.Clear;
DatMod.SayacListQu.Close;
DatMod.SayacListQu.Open;
DatMod.SayacListQu.First;
  while not DatMod.SayacListQu.Eof do
      begin
      inc(i);
        mi:=Tmenuitem.Create(PopUpMenu1);
        PopUpMenu1.Items.Add(mi);
        mi.Caption:=DatMod.SayacListQuSAYAC_ADI.AsString;
        mi.Tag:=i;
        mi.OnClick:=PopUpclick;
        DatMod.SayacListQu.Next;
      end;
end;

SayacListQu table in SAYAC_ADI alanı varChar(7) olduğu halde
aşağıdaki kodla cliklenen PopUpMenu1.caption in karakter uzunluğunu alıyorum burada uzunluk 8 çıkıyor. Bunun sebebi ne olabilir?

Kod: Tümünü seç

procedure TmainFrm.PopUpClick(sender:tobject);
var
Sayadi:string;
begin
Sayadi:=(sender as TmenuItem).caption;
showMessage(inttostr(length(TmenuItem(sender).Caption))); // sonuç 8
showMessage(inttostr(length(Sayadi)));  // sonuç 8
end;

[gkimirti]

Kod: Tümünü seç

mi.Caption:=DatMod.SayacListQuSAYAC_ADI.AsString;

bu satıra snu ekle bi bak bakalım db deki uzunluk ne kadar

Kod: Tümünü seç

showmessage(inttostr(length(DatMod.SayacListQuSAYAC_ADI.AsString)));

[mussimsek]

Merhaba,

autohotkeys özelliğini "maManual" yap, yoksa Delphi otomatik olarak bir & işareti ekliyor.

Kolay gelsin.

[hakkus]

Merhabalar,
Sayın GKimirti ve Admin teşekkürler sorun başına eklenen & karakterinden kaynaklanıyormuş...