Discussion :

[jcharles]

Bonjour a tous,

j'ai fait une appli sous winXP et quand je la fait fonctionner sous Win2000 j'ai deux types d'erreurs..

conversion d'un edit en Numérique, sous XP il faut une virgule alors que sous 2000 il veut un point ???????
et l'autre erreur est plus bizarre encore, je fait un import d'un fichier txt pour l'ajouter dans une table paradox, sous XP tous est OK, sous 2000 si je re importe le meme fichier auquel j'ai ajouté des lignes, pour ces lignes ajoutées, pour la zone numerique il me double le premier chiffre (ex: si 19,50 il mais 119,50), si dessous mon code

procedure TFImp.TraiteLigne(uneLigne : string ; nb : integer);
var
Atab : Array[1..11] of string;
i,Npos, Cpt : integer;
Px : double;
Adr2, Adr3, Prx : String;
Begin
for i:= 0 to 11
do Atab[i] :='';
Npos :=1;
For i:=1 TO Length(uneLigne)
do
begin
if uneLigne[i] =';'then
begin
Inc(Npos);
end
else
begin
if uneligne[i] ='.' then
begin
Atab[Npos]:=Atab[Npos]+','
end
else Atab[Npos]:=Atab[Npos]+uneLigne[i];
end;
end;

Tota := Tota +1;
Data1.CLIENT.First;
if Data1.CLIENT.FindKey([atab[1]]) = False then
begin
totb := Totb +1;
cpt := 0;
Adr2 := atab[6];
Adr3 := Atab[7];
if atab[11] <> '' then
begin
if Adr2 = ''
then Adr2 := atab[11]
else if Adr3 = ''
then Adr3 := atab[11]
else Adr2 := Adr2+' '+Atab[11];
end;

data1.CLIENT.Append;
if data1.CLIENT.State = dsInsert then
begin
data1.CLIENT.FieldByName('NFACT').AsString := atab[1];
data1.CLIENT.FieldByName('NOM').AsString := atab[2];
data1.CLIENT.FieldByName('PRENOM').AsString := atab[3];
if atab[4] <> '0'
then Data1.CLIENT.FieldByName('NRUE').AsString := atab[4];
data1.CLIENT.FieldByName('ADR1').AsString := atab[5];
data1.CLIENT.FieldByName('ADR2').AsString := Adr2;
data1.CLIENT.FieldByName('ADR3').AsString := Adr3;
data1.CLIENT.FieldByName('CPOS').AsString := atab[8];
data1.CLIENT.FieldByName('VILLE').AsString := atab[9];
try
data1.CLIENT.FieldByName('MTCBT').AsString := FormatFloat('0.00',StrToFloat(atab[10]));
except
for i := 0 to length(atab[10]) do
begin
if MidStr(atab[10],i,1)=','
then Prx := Prx + '.'
else Prx := Prx + MidStr(Atab[10],i,1);
data1.CLIENT.FieldByName('MTCBT').AsString := FormatFloat('0.00',StrToFloat(Prx));
end;
end;
data1.CLIENT.FieldByName('EXP').AsString := 'N';
data1.CLIENT.FieldByName('LOCK').AsBoolean := False;
data1.CLIENT.Post;
end;
end;
Lcom2.Caption := IntToStr(totb)+' Clients insérés sur '+IntToStr(tota)+' Trouvés';
Lcom2.Update;
End;

si vous avez une idées

MERCI d'avances

[NoisetteProd]

conversion d'un edit en Numérique, sous XP il faut une virgule alors que sous 2000 il veut un point ???????

Ce problème viens surement du paramétrage régional de windows... As-tu vérifié ?

Pour l'autre pas d'idée à chaud !

[jcharles]

OUI OUI j'ai déja vérifié est tous est identique !!!!!!!

[eponette]

essaye de sauver le décimal separator, tu le force puis tu le remet comme avant. j'ai aussi eu le problème entre ma DB Firebird et mon XP

DecSep := DecimalSeparator;
DecimalSeparator := '.';
...
DecimalSeparator := DecSep;