else if

Hej...
Jeg sidder her og kan ikke få en else if sætning til at virke, kunne det godt...
mMn da jeg har været væk et godt stykke tid, og koncentreret mig om urmageri, har ikke arbejdet med delphi i MEGET lang tid...

Men her er sætningen, hvad er der i vejen??

Kode 

procedure TForm2.Button1Click(Sender: TObject);
begin
if esize.Text = "0" then
  begin
    ethird.Text := 35;
    einches.Text := 1.17;
    emm.Text := 29.63;
    elignes.Text := 13.26;
  end
else
  if ethird.Text = 35 then
    begin
      esize.Text := 0;
      einches.Text := 1.17;
      emm.Text := 29.63;
      elignes.Text := 13.26;
    end
else
  begin
    Showmessage('Invalid input');
  end
end;

Det skal lige siges at den kommer til at have mange flere elseif's, men det er vel under ordnet nu. jeg kan jo bare skrive uendeligt mange elseif's, ik?

Best regards Rune B

******************
*Fishing is a lifestyle*
*Like Computer is *
******************

hvis du altid tjekker op på om værdien af din streng er en tal repræsentation burde du måske overveje at convertere strengen til en integer og så bruge en switch/case i stedet for alle de der if sætninger.

-----------------------------------------------------------------------------

Min side ->www.the-hive.dk/~donp/

hvis du altid tjekker op på om værdien af din streng er en tal repræsentation burde du måske overveje at convertere strengen til en integer og så bruge en switch/case i stedet for alle de der if sætninger.

-----------------------------------------------------------------------------

Min side ->www.the-hive.dk/~donp/

det er selvfølgelig rigtig nok... men det er lidt federe at have en præcis 1000 linier lang elseif sætning.. hold kæft det var kedelig at skrive til sidst!!!!!
******************
*Fishing is a lifestyle*
*Like Computer is *
******************