Writing a ' to a text file

[harrisonj]

List,

I'm writing to a textfile, but need to write out lines with a ' (quote) around certain values. For example I want a line in the textfile to read:
Diver_Acclimatized_at_Altitude='no'

What I get is:
Diver_Acclimatized_at_Altitude=no

Currently I have;

b :=AccToAlt.text;
Write (myfile2, 'Diver_Acclimatized_at_Altitude='+b);
WriteLn(myfile2);

b gets it's value from a radiogroup selection on the gui. The only 2 choices are 'no' or 'yes'.

How can I write out the proper text?

(The text file is for the input to a fortran program, so I need to preserve the input formatting)

Thanks in advance,
Harrison

 

[Punchinello]

You don't need both the write and the writeln. Try this:

Writeln(myfile2, 'Diver_Acclimatized_at_Altitude='''+b+'''');

Two ' characters inside a quoted string write the '.

 

[harrisonj]

Punchinello,

Thanks, that worked.

I'm using the additional WriteLn(myfile2); to terminate the line and move the curser to the next line.

Thanks again,
Harrison

 

[Punchinello]

I understand about your reason for using the writeln. What I'm saying is that this:
[tt]
Write(myfile2, 'Any text');
Writeln(myfile2);
[/tt]
and this:
[tt]
Writeln(myfile2, 'Any text');
[/tt]
will do exactly the same thing.

 

[harrisonj]

Thanks,
Did not know that.

Thanks again,
Harrison

 

[whosrdaddy]

you can write this also as :

Writeln(myfile2, 'Diver_Acclimatized_at_Altitude='+QuotedStr(b));

--------------------------------------
What You See Is What You Get