OK! Ich habe mir die "
ASCII-Werte" angesehen (c) und gesehen das irgendwelche komischen zeichen (vielleicht hexidecimal) aber auf jeden Fall keine
Unicode ASCII-Werte widergegeben werden!
Daraus folgt die Frage: Wie lese ich aus einem String die
ASCII-Werte (
Unicode) in Form von Integers aus?
Was müsste ich am folgenden Codeabschnitt dafür ändern bzw hinzufügen...
Delphi-Quellcode:
for i := 1 to 40 do
begin
c := s[i];
y := Ord( c ) - 100;
x := Round( Int( y / 10 ) );
y := y - ( x * 10 );
j := i * 2 - 1;
Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Text := IntToStr(x);
j := i * 2;
Edit[Round( j - ( 9 * Int( j / 9 ) ) ), Round( Int( j / 9 ) )].Text := IntToStr(y);
end;