Passing a parameter text to a function

[Wardlow]

I have a function that is using a parameter; text. It says that this is not permissible. Is there a way around this?


Wardlow

[Kambiz]

Please post your function definition here.

[Wardlow]

Code: Select all

procedure WriteFile2P(FileName: text; Name: String; Parm1: double; Parm2: double; Avg: double; count: integer);
       begin
        if count = 0 then
        begin
          AssignFile(FileName, 'c:\data.txt');
          Rewrite(FileName);
        end;

         if count = 0 then
         begin
         write(FileName, 'LengthMA1'); write(FileName, '     '); write(FileName, 'LengthMA2');
         write(FileName, '     '); writeln(FileName, 'Average PercentProfit');
         end;

         write(FileName, FileName); write(FileName, '                '); write(FileName, FileName);
         write(FileName, '                '); writeln(FileName, avg:0:2);

        end;

end.


thank you

[Kambiz]

Text is the data type for text files.
In your function you must use String data type instead.

[Wardlow]

as always, I can't thank you enough for you help

[Wardlow]

Kambiz,

If I define SendFile as a string, then how would I get the program to write to the File SendFile. in my main program I have already declared SendFile as a text

[Wardlow]

What I want to do is to clear the coding up in the main and put it into procedures and functions heres what I have in the main.

SendFile: Text;

AssignFile(SendFile, 'c:\data.txt');
Rewrite(SendFile);

writeln(Sendfile, 'Hello_World!!!');
closeFile(SendFile);


How would I declare and write a procedure to do this, so I dont' have to have the above code in the main?

[Kambiz]

Sorry, it was my mistake. According to the parameter name, I thought you are passing name of the file.

Well, instead of the file, pass its name to the function and then declare the file variable as local in the function.

[Wardlow]

got it to work now
thank you