Kun tal

var
  Maaned: Byte;
begin
  Maaned := StrToInt(Copy(Edit1.Text, 0, Pos(' ', Edit1.Text)+1));
end;

ja, men hvordan får jeg så Maaned lagt over i en Edit1.text?
Jeg har kun lært at lægge floats, strings og integers over i en TEdit.

Det er jo endnu lettere! :)

Edit1.Text := Copy(Edit2.Text, 0, Pos(' ', Edit2.Text)+1);

var a, b: integer;
begin
  Val(trim(Edit1.Text), a, b);
  Edit1.Text := inttostr(a);
end;

Val er lidt nemmere at bruge (Giver ingen exception). Den oversætter bare så meget af starten som den kan. Hvis du bruger trim() også vil ' 07 Mån.' også virke (Altså mellemrum først). b variablen vil vise positionen af den første karakter der ikke kan oversættes til tal. Hvis der ikke er noget tal vil a = 0