String über Serielle Schnittstelle

[marabu]

Hallo,

wenn die Übertragung mit dem Code aus Beitrag #6 funktioniert, dann empfehle ich dir folgende kleine Änderung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  i: Integer;
  s: ShortString;
begin
  if Edit1.Text <> '' then
  begin
    // Damit nicht bei jedem Zugriff auf ein Zeichen von Edit1.Text
    // Windows in Aktionismus ausbricht (ist gar nicht so einfach an diesen Text heran
    // zu kommen), speichern wir den Text in einen ShortString um.
    // So erhalten wir auch gleich das Längenbyte.
    s := Edit1.Text;
    // über den ganzen String iterieren
    // Achtung, Strings sind 1 indiziert, dynamische Arrays beginnen bei 0!

    // s[0] enthält die Längeninformation ...
    for i := 0 to length(s) do
    begin
      // Edit1.Text[i] = das i-te Zeichen aus Edit1.Text
      // ord(ZEICHEN) = der Ordinale Wert des ZEICHEN
      SendByte(Ord(s[i]));
    end;
  end else
  begin
    ShowMessage ('Telefon-Nummer eingeben!');
  end;
end;

Freundliche Grüße