Temperatur Umrechner

[jens106]

Hallo,
ich bastle mir gerade einen (wie der Titel des Threads schon sagt) Temperatur Umrechner. Ich komme soweit auch gan gut klar. Um euch mal eben zu zeigen wie das ganze bei mir aus sieht habe ich ein Bild mit hochgelade.

Aber aus Irgend einem Grund bekomme ich einen fehler.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox2: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zahl, ergebnis : integer;
begin
   zahl :=StrToInt(Edit1.text);

   // Kontrolle auf neue Edit Box

   if ComboBox1.text='C° (Celsius)' then
      begin
         if ComboBox2.text='K (Kelvin)' then
            begin
               ergebnis:=zahl+273;
               Edit1.Text:= IntToStr(ergebnis);
            end
         else
            begin
            end
       end
   else
      begin
      end

   // Kontrolle auf neue Edit Box

   if ComboBox1.text='C° (Celsius)' then      // hier kommt immer der Fehler
      begin
         if ComboBox2.text='K (Kelvin)' then
            begin
               ergebnis:=zahl+273;
               Edit1.Text:= IntToStr(ergebnis);
            end
         else
            begin
            end
       end
   else
      begin
      end


end;

end.

ich hoffe ihr könnt mir helfen


gruß jens106

[Teekeks]

Wie heißt denn der Fehler?

[jens106]

[Error] Unit1.pas(57): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[DeddyH]

Da fehlt ja auch ein Semikolon am Ende der Zeile vorher.

[Teekeks]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox2: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zahl, ergebnis : integer;
begin
   zahl :=StrToInt(Edit1.text);

   // Kontrolle auf neue Edit Box

   if ComboBox1.text='C° (Celsius)' then
      begin
         if ComboBox2.text='K (Kelvin)' then
            begin
               ergebnis:=zahl+273;
               Edit1.Text:= IntToStr(ergebnis);
            end
         else
            begin
            end; //hier fehlte ein semicolon...
       end
   else
      begin
      end; //hier fehlte ein semicolon...

   // Kontrolle auf neue Edit Box

   if ComboBox1.text='C° (Celsius)' then      // hier kommt immer der Fehler
      begin
         if ComboBox2.text='K (Kelvin)' then
            begin
               ergebnis:=zahl+273;
               Edit1.Text:= IntToStr(ergebnis);
            end
         else
            begin
            end; //hier fehlte ein semicolon...
       end
   else
      begin
      end; //hier fehlte ein semicolon...


end;

end.

[jens106]

jo danke dir.

aber wieso brauche ich da eins wenn ich nirgend anders eins gestzt habe?

[DeddyH]

*Puh*, die Semikolonregeln von Pascal sind nicht ganz einfach zu erklären. Als Ansatz: überall dort, wo kein else folgt, sicherheitshalber ein Semikolon setzen, das sollte dann passen.

[Teekeks]

genau nach dem verfahren mach ich das auch... ^^

[jens106]

alles klar danke euch

[himitsu]

Statt ComboBox1.Text empfehle ich dir mal einen Blick auf ComboBox1.ItemIndex zu werfen.

A) Integervergleiche sind schneller
und man könnte auch mal CASE-OF statt IF-THEN verwenden

B) änder mal den Text deiner Komponente und schon geht nichts mehr
und dann gibt's noch Schreibfehler beim Programmieren, wo es auch nicht mehr ginge.