Thema: Delphi Schleifen Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Schleifen Problem

  Alt 12. Mär 2009, 23:40
Hallo,

ja string[0] ist nur das erste Zeichen. Mich hat es verwirrt, dass du einem einzelnen Zeichen etwas zuweist, daher dachte ich nicht daran, dass das so gar nicht gehen kann. habe dein Beispiel nicht gelesen. *g*

Ich würde es so lösen:

Delphi-Quellcode:
var
  text, textASCI: string;
  u: Byte;
begin
  text := Edit1.Text;
  textASCI := '';

  for u := 1 to length(text) do
    textASCI := textASCI + IntToStr(Ord(text[u]));

  Edit2.Text := textASCI;
end;
ungetestet.

Grüße, Matze
  Mit Zitat antworten Zitat