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:
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?