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.

markieren

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

Hai Seven,

das sollte eigentlich gehen:

zusammenfalten · markieren

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;

Danke Sharky,

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