Hi Adrian,
das dürfte so auch funktionieren. An die Funktion übergibst du einfach deinen Befehl als string
Delphi-Quellcode:
procedure SendeBefehl(sBefehl: String[255]);
var
aBuff: Array[0..255] of Char;
i, Laenge: Integer;
begin
Laenge := Length(sBefehl);
for i := 1 to Laenge do aBuff[i-1] := sBefehl[i];
ComportMain.Write(aBuff, Length(sBefehl));
end;
Gruß