procedure TForm1.Button1Click(Sender: TObject); var i, u: integer; tegn : integer; begin u := 1; Str1 := Memo1.Text; i := Length(Str1); while u <= i do begin Str3 := Str1[u]; tegn := (ord(str3[1])); showmessage(IntToStr((tegn))); inc(u); end; end;
stoney >> jeg har næsten fået den til at funge. men kan du ikke sende en mail sådan engang imellem til ziron@kulhytten.dk eller icq 50365252 for så kan jeg huske at du lige skal have det når det er færdi...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.