Discussion :

[ghan77]

Voilà j'ai un souci je suis sur Delphi 4.0 et le Float apparement n'existe pas.
j'aimerais garder une valeur 999,00 en 999.
sur la 7.0 on pouvait faire je crois floattoint(999,00) et ca donnait je crois 999.
et j'aimerais additionné genre 57,00 avec 22,50 pour que ca donne 79,50.
mais k:float; (k étant une variable) il dit que float n'est pas défini!donc je comprends plus!
Voilà j'espère que vous pourrez m'aider!Merci

[Pedro]

Salut
A la flace de Float, essaie Real ou Double (mieux).
Et pour transformer en entier, tu as Round(), Trunc() Int(), etc...

[ghan77]

Merci mais je sais pas pourquoi il s'execute pas.il bloque.Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.Button2Click(Sender: TObject);
var
l:double;
begin
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT PStock');
Query2.sql.Add('FROM products');
Query2.SQL.Add('WHERE (PCode=:x)');
Query2.Params[0].AsString:=Edit2.text;
Query2.Open;
 
l:=StrToFloat(Query2.Fields[0].AsString);
label1.caption:=FloatToStr(l);
end;

[ghan77]

je pense que le problème c'est que les réels sont écrits de cette facon je crois 60.00 et pas 60,00 comme l'entreprise a mis dans sa base d donnée.
Peut ton passer de 60,00 à 60.00?genre une recherche dans le string de la virgule qui sera remplacer par un point?

[ghan77]

apparement non les float sont avec une virgule!je comprends absolument rien :s au secours!

[Rayek]

remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
l:=StrToFloat(Query2.Fields[0].AsString);

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
l:=Query2.Fields[0].AsFloat; // faut que le champ de la base de données soit définit en un type float sinon ca fonctionnera pas

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
label1.caption:=FloatToStr(l);

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
label1.caption:=FormatFloat('0.00',l);

[ghan77]

Ca bloque toujours je vais pété un cable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
var
l:double;
u:integer;
begin
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT PStock');
Query2.sql.Add('FROM products');
Query2.SQL.Add('WHERE (PCode=:x)');
Query2.Params[0].AsString:=Edit2.text;
Query2.Open;
 
l:=Query2.Fields[0].AsFloat;
u:=Trunc(l);
label1.caption:=IntToStr(u);
end;

[Pedro]

Ca bloque toujours je vais pété un cable

Ok ça bloque mais si tu disais qu'est-ce qui bloque exactement on pourrait un peu avancer Message d'erreur? Freeze? etc.

[ghan77]

Freeze!ca bouge pas!meme en faisant pas à pas ca m'indique aucune erreur :s!

[Rayek]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
var
l:double;
u:integer;
sTmp : char; // petite variable temporaire
begin
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT PStock');
Query2.sql.Add('FROM products');
Query2.SQL.Add('WHERE (PCode=:x)');
Query2.Params[0].AsString:=Edit2.text;
Query2.Open;
sTmp := DecimalSeparator; //sauvegarde le caractère de séparation des 
décimals
DecimalSeparator := '.'; // nouveau séparateur, normalelent en delphi c'est un point qu'il faut
l:=Query2.Fields[0].AsFloat;
u:=Trunc(l);
label1.caption:=IntToStr(u);
DecimalSeparator := sTmp; // remet correctement le caractère de séparation
end;

Voir dans le code

[ghan77]

pas bête du tout mais il me fait cette erreur!

[Error] Unit1.pas(120): Incompatible types: 'Char' and 'String'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

[ghan77]

Ca fait plus l'erreur je m'étais trompé apparement je ne sais pas mais ca freeze toujours!

[LadyWasky]

Ton x, utilisé comme paramètre de ton SQL, tu l'a déclaré en tant que string au lieu de char, vérifies bien...

[ghan77]

Aller savoir pourquoi en redémmarrant delphi ca marche sans faire la dernière modification!j'ai pas tout compris ce problème mais ca marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
var
k:double;
i,j,l:integer;
begin
j:=0;
k:=0;
Query1.Close;
Query1.sql.clear;
Query1.sql.Add('SELECT smcode,sdate,');
Query1.sql.Add('COUNT(sccode) AS CompteDeSCCode,');
Query1.sql.Add('Sum(SPRICE) as SommeDeSPRICE FROM Sales');
Query1.SQL.Add('WHERE (smcode=:x)');
Query1.SQL.add('GROUP BY sdate, smcode');
Query1.Params[0].AsString:=AnsiUpperCase(Edit1.text);
Query1.Open;
 
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT PStock');
Query2.sql.Add('FROM products');
Query2.SQL.Add('WHERE (PCode=:x)');
Query2.Params[0].AsString:=Edit2.text;
Query2.Open;
 
l:=Trunc(Query2.Fields[0].AsFloat);
//label1.caption:=FormatFloat('0.00',l);
 
i:=1;
 
Query1.Last; // au cas ou pour être sûr que le recordcount fonctionne
StringGrid1.Rowcount := Query1.RecordCount + 1; // faut donner la taille correspondant a ce qu'il y a dans ton query
Query1.First; // on se remet au debut de la requete
 
while not Query1.Eof do
  begin
   stringgrid1.cells[0,i]:=Query1.Fields[0].AsString;
   stringgrid1.cells[1,i]:=Query1.Fields[1].AsString;
   stringgrid1.cells[2,i]:=Query1.Fields[2].AsString;
   stringgrid1.cells[3,i]:=Query1.Fields[3].AsString;
 
   j:=j+strtoint(Query1.Fields[2].AsString);
   stringgrid1.cells[4,i]:=inttostr(j);
 
   k:=k+Query1.Fields[3].AsFloat;
   stringgrid1.cells[5,i]:=floattostr(k);
 
   l:=l-strtoint(Query1.Fields[2].AsString);
   stringgrid1.cells[6,i]:=inttostr(l);
 
   Query1.Next;
   i:=i+1;
 end;