Fra bogstaver til tal

måske noget som:

Edit2.Text := textsum(Edit1.Text);

hvor

function textsum(s : string) : string;

var
  i,sumvar : integer;

begin
  sumvar := 0;
  for i := 1 to length(s) do sumvar := sumvar + (ord(s[i]) - ord('A') + 1);
  result := inttostr(sumvar);
end;

[bare skrevet ind her utestet]

Det kan gøres på flere måder. Her er en mulighed.

Function GetValue(s:char):integer;
begin
s := UpCase(s); //hvis det er ligegyldigt om det  er store eller små bogstaver
  case s of
  'A': result := 1;
  'B': result := 2;
  'C': result := 3;
  'D': result := 4;
  'E': result := 5;
  'F': result := 6;
  'G': result := 7;
  'H': result := 8;
  'I': result := 9;
  'J': result := 10;
  'K': result := 11;
  'L': result := 12;
  'M': result := 13;
  'N': result := 14;
  'O': result := 15;
  'P': result := 16;
  'Q': result := 17;
  'R': result := 18;
  'S': result := 19;
  'T': result := 20;
  'U': result := 21;
  'V': result := 22;
  'X': result := 23;
  'Y': result := 24;
  'Z': result := 25;
  'Æ': result := 26;
  'Ø': result := 27;
  'å': result := 28;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
s:string;
textsum:integer;
begin
textsum := 0;
s:= Edit1.Text;
for i := 1 to length(s) do
textsum := textsum + GetValue(s[i]);

showmessage('Summen er: ' + IntToStr(textsum));
end;

//Tænk også på hvad der skal ske hvis der skrives andet end bogstaver i feltet.

Det er perfekt! Tak for hjælpen!

vil lige tilføje at W kommer efter V :)