A 65

[Mikey]

Hur ska jag göra om jag vill räkna ut vilket värde alla bokstäverna i ett text-fällt har?

 

ABC = 65+66+67 = 198

 

om man skriver ABC i textfälltet så lagras 198 i en variabel.

 

HUR SKA JAG GÖRA?

 

tack i förhand

 

/Mikey

[J S]

var

i, value: integer;

begin

value := 0;

for i := 1 to Length(Edit1.text) do

value := value + Ord(Edit1.text);