Changing file size to decimal number

[Teebee]

What am i doing wrong?

Code: Select all

program testscript;
uses
  StringUtils1;
  
var
  moviesize: string;
  moviesize2: integer;

  begin
  Moviesize := GetField(fieldsize);
  Showmessage(moviesize);
  
  moviesize2 := Format('Number           = %n', [moviesize]));
  showmessage(moviesize2)
  
 // ShowMessage(Format('Number           = %n', [12345.678]));
 
 
 
 end.

[antp]

The size is a text string (containing numbers, but still text type).
So you should use a string variable and %s instead of %n.
Also, Format gives you a text, I am not sure why you try to put it in a Integer variable
If you really need it as Integer, you can try StrToInt. If I remember well it works this way:
i := StrToInt(s, 0);
where i = integer variable, s = string variable to convert, 0 = the value in case it could not be converted.
If you need for a floating-point variable it would be StrToFloat (not sure if it exists in the script engine).

[Teebee]

Only thing i really need is to convert that text string into a decimal number, so
12345678901 becomes 12.345.678.901

Code: Select all

program testscript;
uses
  StringUtils1;
  
var
  moviesize :  string;
  B: integer;

begin

  moviesize := getfield(fieldsize);
  showmessage(moviesize);
  B := StrToInt(moviesize,0);
  //  ShowMessage('number is '+IntToStr(moviesize,0));
  ShowMessage('B : '+IntToStr(B));
 end;

but B gives me 0 as a result instead of the correct value.

[antp]

Integer are limited to 2147483647.
For larger values you will have to use float/double.
What is the final purpose? Adding dots between groups of 3 digits?

[Teebee]

What is the final purpose? Adding dots between groups of 3 digits?

Correct.

[antp]

Maybe it would be better to do that then, build a new text string by inserting a '.' every 3 numbers (starting at the end).
Or else with StrToFloat and Single or Double variable types.

[Teebee]

I can't seem to get anywhere.

Is this real pascal, pascal innerfuse or deplhi programming? (can i find any documentation about it?)


i just want to convert the string to a decimal number.
but i only get identifier errors. Getting to the point of almost no return

Code: Select all

program testscript;
uses
  StringUtils1;
  
var
  moviesize,  MovieName : string;
  moviesize2 :  double;
   filelength , B , i , C : integer;
   begin
  moviesize := getfield(fieldsize);
  filelength :=length(moviesize);

 
ShowMessage('Filesize: "'+Moviesize+'" bytes');

 B := StrToInt(moviesize,0);
 // i := StrToFloat(moviesize,2);

      While (filelength > 1) Do
       begin
       Insert(',', moviesize, i);
       Dec(filelength, 3);
       showmessage(moviesize);
       end;
 end.

Any help is much appreciated

[antp]

You were close.
It is a Innerfuse Pascal Script version 2, which is a scripting language that uses a simplified Pascal/Delphi syntax and some basic functions from it.
Some do not exist, for example "Dec" it seems.

Here is the working modified version:

Code: Select all

program testscript;

var
  moviesize: string;
  filelength: integer;

begin
  moviesize := getfield(fieldsize);
  filelength :=length(moviesize) - 2;

  ShowMessage('Filesize: "'+Moviesize+'" bytes');

  While (filelength > 1) Do
  begin
    Insert(',', moviesize, filelength);
    filelength := filelength - 3;
    showmessage(moviesize);
  end;
end.

You made an error in the Insert: you used "i" instead of your filelength variable.
Also, I initialized it at Length-2 since you have to insert the first separator two characters before the last character (i.e. 3 before the end).

I am not sure if the script engine includes formatting functions (as Format is not existing in it, it seems) so that way of inserting separators is probably easier than trying to format a number like what you were originally trying to do.
To get the size as single type (single = delphi's float type), there is
f := StrToFloat(moviesize);
but then you can't do much more with it...