wie packe ich jetzt diese Anweisungen in eine Funktion die ich jederzeit aufrufen kann? + aufruf und deklaration?!
muss ich einfach davor schreiben zum deklarieren? Das packe ich dann oben zu public bzw private?!
und dann irgendwo im programm mit Connecten(); aufrufen?!
Delphi-Quellcode:
function Connecten()
begin
SerialPortNG1.SendString('0000sr' +#$05);
if WaitForAnswer(100) < 0 then
begin
memoResult.Lines.Add('Error: No Answer on 4422');
Exit;
end;
pbProgress.StepIt;
if Ord(SerialPortNG1.ReadNextClusterAsString[1]) = 6 then // Wenn Antwort =6 dann ist OKAY
memoResult.Lines.Add('Connect erfolgreich')
else
memoResult.Lines.Add('Answer : '+IntToHex(Ord(SerialPortNG1.ReadNextClusterAsString[1]),2));
end;
{wenn Antwort nicht 06(ACKNOWLEDGE) dann zeige mir andere Antwort. Kann ich hier auch die komplette Antwort als String ausgeben?!? anstatt in Hex umwandeln?!}