2 cifret tekstboks

while Length(Tal) < 2 then
  Tal:="0" + Tal;

Hvor Tal er en String

hvad hvis tal er Integer ???

Hvis det kommer fra en tekstbox er det en String...hvis det er en Integer skal det først konverteres til String:
Tal:=IntToStr(IntTal);
Bemærk, at hvis du konverterer en String med f.eks. 03 til en integer bliver nullet "skåret væk", altså vil integeren være 3.

Sæt MaxLength til 2 og lav lidt kode:

function IsInteger(S: String): Boolean;
var
  Code, I: Integer;
begin
  Val(S, I, Code);
  Result := Code = 0;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
  E: TEdit;
begin
  E := (Sender as TEdit);
  if Length(E.Text) = 1 then
    if IsInteger(E.Text) then
      E := '0' + E.Text
    else
      ShowMessage('HEST!!! Skriv dog et tal!');
end;

//hermandsen

Skal jeg ikke slutte af med en Edit.text := e; ????

Kan ikke få det til at virke...

Hvad er problemet....?

>>danielks
Kunne du eventuelt svar a_schack? :)