Hallo,

ich habe die Ausgabe eines DOS-Programmes. Das Ergebnis hätte ich gerne, das man es auch unter Windows richtig lesen kann.

Die erste Aufgabe - Konvertierung des Charsets - konnte ich mit OemToAnsi(...) lösen. Jetzt hätte ich gerne, daß nur noch 7bit-Zeichen im Text sind, also alles konvertiert ü->ue, ß->ss usw.

Gips dafür auch eine schöne Funktion?

Danke!

Ich habs jetzt so gelöst:

zusammenfalten · markieren

Delphi-Quellcode:

begin
   result := '';
   slen := Length(s);


   for i := 1 to slen do
   begin
      case s[i] of
         'ä': result := result + 'ae';
         'ö': result := result + 'oe';
         'ü': result := result + 'ue';
         'Ä': result := result + 'AE';
         'Ö': result := result + 'OE';
         'Ü': result := result + 'UE';
         'ß': result := result + 'ss';
      else
         result := result + s[i];
      end;
   end;
end;

Geht erstmal. Ich habe aber Angst, daß mein DOS-Text irgendwann mal kyrillische Buchstaben enthält - dann gehts natürlich nicht mehr. Gips eine Funktion, um zu prüfen, ob ein Text nur 7bit-Zeichen enthält?

7 bit sind alle Zahlen 0..127. Reicht das als Anregung?

schau einfach ob das 8 bit auf 0 oder 1 gesetzt ist.

Oder einfach nur
If Ord (MyString[i])>=128 Then is7Bit := False;