Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
618 Beiträge
 
Delphi 10.1 Berlin Starter
 
#37

AW: Externes Programm ausführen

  Alt 18. Dez 2017, 17:16
Hallo, ich habe mir Folgendes ausgedacht, es funktioniert zuerst mal. Nach den vielen Pleiten vielleicht ein Fortschritt. In meinem Archiv gefunden.

Delphi-Quellcode:
  function Ex195(const s: string): string;
  var // Die deutschen Umlaute + ß werden falsch dargestellt (Unicode)
    po: Integer;
    ch: Char; // Durch Ausprobieren habe ich die Codes herausbekommen
  begin // erst #195 dann Zeichen ... - 16-10-2008
    Result:=s; // Utf8ToAnsi() von Delphi macht genau das
    po:=Pos(#195,Result);
    while (Length(Result) > 0) and (po > 0) do begin
      ch:=Result[Po+1];
      System.Delete(Result,po,2);
      case ch of
        #$84: ch:='Ä';
        #$96: ch:='Ö';
        #$9C: ch:='Ü';
        #$A4: ch:='ä';
        #$B6: ch:='ö';
        #$BC: ch:='ü';
        #$9F: ch:='ß';
        else ch:='.'
      end;
      System.Insert(ch,Result,po);
      po:=Pos(#195,Result,Succ(po))
    end
  end;
Willie.

Geändert von Willie1 (18. Dez 2017 um 18:38 Uhr) Grund: Rechtschreibung
  Mit Zitat antworten Zitat