if anweisung

[cell]

jop klar =D hier ist der quelltext

Delphi-Quellcode:

procedure Tfrmmdichild.FormActivate(Sender: TObject);
//------------------------------------------------------------------------------
//  firstRun: nur beim ersten Aufruf muß Leerfeld kontrolliert werden!!!
//------------------------------------------------------------------------------
var
boolResult: boolean;
agewvo: string;
agewvu: string;
agewho: string;
agewhu: string;
egewvo: string;
egewvu: string;
egewho: string;
egewhu: string;
agewscheibe: string;
egewscheibe: string;

begin
     with DataModule1 do
     begin
       Query.SQL.Clear;
       Query.SQL.Text:= selectsql('Anfangsgewicht_Belag_vorne_oben, Anfangsgewicht_Belag_vorne_unten, Anfangsgewicht_Belag_hinten_oben, Anfangsgewicht_Belag_hinten_unten, Endgewicht_Belag_vorne_oben, Endgewicht_Belag_vorne_unten, Endgewicht_Belag_hinten_oben, Endgewicht_Belag_hinten_unten','Friktionstest','Testnummer='  + frmtestauswahl.cbotestnummer.Text,'', '');
       Query.Open;
       while not Query.Eof do
       begin
            agewvo:=(Query.Fields[0].AsString);
            agewvu:=(Query.Fields[1].AsString);
            agewho:=(Query.Fields[2].AsString);
            agewhu:=(Query.Fields[3].AsString);
            egewvo:=(Query.Fields[4].AsString);
            egewvu:=(Query.Fields[5].AsString);
            egewho:=(Query.Fields[6].AsString);
            egewhu:=(Query.Fields[7].AsString);

            boolResult:=((agewvo ='') Or
                         (agewvu ='') Or
                         (agewho ='') Or
                         (agewhu ='') Or
                         (egewvo ='') Or
                         (egewvu ='') Or
                         (egewho ='') Or
                         (egewhu ='')) And
                         firstRun;

            if boolResult then
            begin
                 Showmessage('Der Verschleiß vom Belag konnte nicht berechnet werden');
            end
            else
                lblbelagverschleiss.Caption :=FloatToStr((StrToFloat(agewvo) + StrToFloat(agewvu) + StrToFloat(agewho) + StrToFloat(agewhu)) - (StrToFloat(egewvo) + StrToFloat(egewvu) + StrToFloat(egewho) + StrToFloat(egewhu)));

            firstRun:=false;
           Query.Next;
           Query.Close;
       end;//while
     end;//with

hf