kodowanie...

... jak zrobić aby liczby w edicie2 były sumą liczb w kodzie 'hex' odpowiadających każdej literze w kodzie ascii wyrazu w edicie 1?, np:

edit1.text=delphi

d(100) + e(101) + l(108) + p(112) + h(104) + i(105) = 630 > hex > 276

edit2.text:='276'

Nie wiem czy udało mi się to sformułować poprawnie, ale mam nadzieje że zrozumiecie o co mi chodzi!

Dzięki i Pozdrowionka!

do zamieniania na ascii słuzy funkcja ord()

a o przeliczaniu na hex poczytaj w serwisie

A o tak...
[code]
var
i : integer;
str : string;
ile : integer;
begin
str := Edit1.Text;
ile := 0;
for i := 1 to length(str) do begin
ile := ile + ord(str[i]);
end;
Edit2.Text := inttohex(ile, 8);
end;
[/code]
... na przykład.