Thema: Delphi String Konvertierung

Einzelnen Beitrag anzeigen

HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
970 Beiträge
 
Delphi 6 Professional
 
#2

AW: String Konvertierung

  Alt 25. Feb 2018, 11: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

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...
  Mit Zitat antworten Zitat