Char nicht einzeln sondern "packetweise" seriell verwenden

**Helmi**

Hallo,

ich spiel gerade mit einer LCD-Anzeige herum, die seriell die Daten erhält.

Zur Übertragung verwend ich die Komponente TSerial (aus einer Zeitschrift)

Ich kann mit dieser Komponente Texte mit Serial.TransmittText(S: String) schicken und Daten mit
Serial.TransmittData(var Data: Ohne Typ; DataSize: Cardinal).
Soweit so gut.

Die LCD-Anzeige hat nur ein Problem dass Sonderzeichen wie z. B. ä, ö, ü, Ä, Ö, Ü, ß, ², ³, etc. als Hex übertragen werden müssen.

Dies hat leider zur Folge, dass ich leider nicht einfach den Text mit TransmittText senden kann, da sonst die Sonderzeichen nicht richtig dargestellt werden.

Ich hab mir dafür folgende Procedure überlegt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMainForm.LCD_Text_senden(Text: String);

var

  i       : Integer;

  C_Zelle : Char;

  B_Char  : Byte;

begin

  for i := 1 to length(Text) do

    begin

      //

      C_Zelle := Text[i];

      case C_Zelle of

        'ü': B_Char := $81;

        'ä': B_Char := $84;

        'ö': B_Char := $94;

        'ß': B_Char := $E1;

        'Ü': B_Char := $9A;

        'Ä': B_Char := $8E;

        'Ö': B_Char := $99;

        '²': B_Char := $FD;

        '³': B_Char := $FE;

        'µ': B_Char := $E6;

      else

        B_Char  := Ord(c_Zelle);

      end;

      Serial.TransmittData(B_Char, SizeOf(B_Char));

    end;

end;

Wie man sieht, ich muss über jedes Zeichen gehen, prüf dies auf ein Sonderzeichen und schick dann das Zeichen an das LCD-Modul.

Das funktioniert auch - nur hab ich die Befürchtung, wenn der Text mal länger wird, dass dann das Schreiben ne Ewigkeit dauert.

Deshalb meine Frage: Kann man dies irgendwie vereinfachen - so dass man alles auf einmal sendet - trotz Sonderzeichen?

Char nicht einzeln sondern "packetweise" seriell verwenden

Char nicht einzeln sondern "packetweise" seriell v

Forumregeln