Delphi String Konvertierung

Thema durchsuchen

Ansicht

Themen-Optionen

String Konvertierung

Ein Thema von zeras · begonnen am 25. Feb 2018 · letzter Beitrag vom 28. Feb 2018

Vorheriger Beitrag

Nächster Beitrag

HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
984 Beiträge

Delphi 6 Professional

AW: String Konvertierung

25. Feb 2018, 10:40

Hmm..

das sind ZeichenCodes von WideChars..

0056006F007200730063006800610075 entspricht dem String 'Vorschau'.

0056 V
006F o
0072 r
0073 s
0063 c
0068 h
0061 a
0075 u

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  i : integer;

begin

  Edit2.Text := '';

  For i := 0 to (length(Edit1.Text) div 4)-1 do begin

    Edit2.Text := Edit2.Text + WideChar(StrToInt('$' + Copy(Edit1.Text,1 + (i*4),4)));

  end;

end;

Kleiner Test mit D6...