if anweisung

[chrisw]

Ich würde das mit 'ner StringListe machen !
Etwa so !

Delphi-Quellcode:

var StringList : TStringList;
    i : Integer;
begin 
  StringList := TStringList.Create;
     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 
       for i := 0 to 7 do StringList.Add(Query.Fields[i].AsString);
       Query.SQL.Clear; 
       Query.SQL.Text:=selectsql
                      ('Anfangsgewicht_Scheibe,Endgewicht_Scheibe','Friktionstest',
                       'Testnummer='+frmtestauswahl.cbotestnummer.Text,'',''); 
       Query.Open; 
       StringList.Add(Query.Fields[0].AsString);
       StringList.Add(Query.Fields[1].AsString);
       if StringList.Text = '' then 
       begin 
            Showmessage('Es gibt keine Werte für diese Testnummer'); 
            //ShowMessage(Query.SQL.Text); 
            close; 
       end 
       else 
       lblbelagverschleiss.Caption :=FloatToStr((StrToFloat(StringList[0]) + 
        StrToFloat(StringList[1]) +        StrToFloat(StringList[2]) + StrToFloat
        (StringList[3])) - (StrToFloat(StringList[4]) + StrToFloat(StringList[5])  + 
        StrToFloat(StringList[6]) + StrToFloat(StringList[7]))); 
        lblscheibeverschleiss.Caption:=FloatToStr(StrToFloat(StringList[8])
        +StrToFloat(StringList[9])); 
        Query.Next; 
        Query.Close; 
       end; 
      StringList.Free;
     end;