Symbol aus "Symbol.ttf" in anderer Schriftart finden

[FAlter]

Hi,

Kleiner Test...

Delphi-Quellcode:

var
  S: WideString;
  I: Integer;
begin
  SetLength(S, 25);
  for I := 1 to 25 do
    S[I] := WideChar(I - 1 + Ord('A') + 916 - 68);

  MessageBoxW(Handle, PWideChar(S), nil, MB_OK);
end;

Ohne das +916-68 würde es ABCDEFGHIJKLMNOPQRSTUVWXY werden, und so erhältst du das griechische Alphabet - es ist genau 916-68=848 Zeichen weiter im Unicode-Alphabet.

Leider funktioniert

inc(MyWideChar, 848); nur von A bis E, dann weicht die Symbol-Reihenfolge leider ab von der richtigen Reihenfolge des griech. Alphabets - es war eben nur für mathematische Formeln gedacht.

Ich würde dir eine Ersetzungstabelle empfehlen, z. B. eine Array-Konstante.

Warum wird vor dem Sigma nur ein Rechteck angezeigt? Gibt es so einen griech. Buchstaben? Kenn ich nicht.

Mfg
FAlter