@+
function ExtNumber(S: String; Ind :Integer = 0; Len :Integer = 2; Sep: Char = ','): string;
var
I : Integer;
begin
Result := '';
I := Pos(Sep, S);
if I <> 0 then
Result := Copy(S, I+Ind+1, Len);
end;
//ExtNumber('123,4567') = 45
//ExtNumber('123,4567',2) = 67
//ExtNumber('123,4567',0,4) = 4567
//ExtNumber('123.4567',0,2,'.') = 45
...
25 nov. 2014 à 11:17
une autre foncyion en delphi svp
30 nov. 2014 à 17:24
pour que ça marche il faut bien sur que ton nombre soit du type string
Si ce n'est pas le cas tu le convertis avant
25 nov. 2014 à 12:28
As-tu essayer de voir en détail et en pas à pas (avec espionnage des variables) pour essayer de corriger ?