var
moment:string;
say,i:integer;
begin
suimemo1.Clear;
ComPort1.WriteStr('a');
comport1.ReadStr(moment,say);
suimemo1.Text:=moment;
edit1.Text:=inttostr(say);
yi kullanıyorum ama memo ya yazmıyo ama terminal ekranında gelen veriyi görebiliyorum
Gelen Veride V = 2560 gibi ama editbox a yada başka yere yazdıramıyom
aynı soruyu iki kere sormuşsunuz pek uygun değil
getchar adı üzerinde, tek karakter döndürüyor, orada birde count değişkeni var, okadar getchar çağırın.
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var I : integer;
begin
for I := 1 to Count do
cRcvBuffer:= cRcvBuffer + ApdComPort1.GetChar;
end;