Ergbnis einer Division anzeigen lassen

[Seven]

Hallo zusammen,

da ich leider ein Noob was Delphi betrifft bin, frage ich mal ganz vorsichtig nach einer Lösung.

Problem:

Ich möchte aus meiner Mysql Lagertabelle den prozentualen Anteil des gefüllten Lagers ausgeben lassen.

Ich habe folgende gemacht ( zwar nicht Super, aber ich muss es ja auch verstehen können.

Delphi-Quellcode:

query1.close;
query1.sql.text :='select count(*) as gesamt from lager where regal=1';
query1.open;
query2.close;
query2.sql.text :='select count(*) as anzahhl from lager where regal=1 and menge>0';
query2.open;
label1.caption :=?????

Ergebnis aus query1=108
Ergebnis aus query2=95


Frage:
Ich möchte mir gerne im Label den prozentualen Anteil anzeigen lassen, also (100/query1*query2).
Leider weiss ich nicht wie ich das anstellen kann. Ich habe es mit floattostr probiert, aber das scheint nicht zu klappen.

Ich hoffe ihr könnt mir weiterhelfen.
Danke im voraus

[Sharky]

Hai Seven,

das sollte eigentlich gehen:

Delphi-Quellcode:

var
  summe1 : Real;
  summe2 : Real;
begin
  query1.close; 
  query1.sql.text :='select count(*) as gesamt from lager where regal=1'; 
  query1.open; 
  summe1 := Query1.FieldByName ('gesamt').AsFloat;
  query1.close;
  query2.close; 
  query2.sql.text :='select count(*) as anzahhl from lager where regal=1 and menge>0'; 
  query2.open; 
  summe2 := Query1.FieldByName ('anzahl').AsFloat;
  query2.close;
  label1.caption := FloatToStr (100 / summe1 * summe2);
end;

[Seven]

Danke Sharky,

es klappt. Ist halt von Vorteil, wenn man weiss wo man fragen muss :)