Hallo,
Delphi-Quellcode:
procedure TForm1.com1TriggerAvail(CP: TObject; Count: Word);
var i: word;
input: string;
liste: TStringList;
begin
liste := TStringlist.Create;
for i := 1 to count do begin
input := input + com1.GetChar;
end;
liste.Add(input);
showmessage(inttostr(liste.Count));
input := '';
end;
Ich bekomme da immer "1" als Meldung, dabei sollte sich eigentlich das Resultat von Count immer erhöhen oder?
Gruß
Spurius