Hallo Leute,
hab heut` so ziemlich den ganzen Tag im Internet gesucht und auch Teile gefunden, auch hier.
Danke schon mal an ALLE.
Bin also jetzt soweit, das ich nur noch 3 Fehlermeldungen bekomme.
Aber was ist noch falsch?
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var messagestring:string;
checksum:extended;
address:integer;
factor:integer;
begin
checksum := (255 - ((((13 + address + Ord('T') + Ord(factor)) / 256) - (Int(13)) + address + Ord('T') + Ord(factor)) / 256)) * 256 + 1;
messagestring := Char(13) + Char(address) + 'T' + factor + (checksum);
messagestring:= messagestring+messagestring;
ApdComPort1.Output:= messagestring;
showmessage (checksum);
end;
Bitte bitte helfen, sonst wird es wieder eine lange Nacht.