[JohnnyBravo]

Всем, Здравствуйте.
Подскажите пожалуйста, как мне сохранить переменную типа Pchar, в файл обычный txt хотя бы?
Ума не приложу.

VAR P : PChar;
f : textfile;
t: real; //// хоть integer
begin
P := DdeClientConv1.RequestData('S1');
Label1.Caption:=(P);
t:=strtofloat(p);
/// t := t*1.5;
AssignFile(f, 'c:\list.txt');
Rewrite(f);
write(f,p);
closefile(f);
StrDispose(P);
end;

[lmikle]

Ковертируй в String с помощью функции StrPas и записывай куда хочешь.

[JohnnyBravo]

Спасибо.
а не подскажите, почему значение не пишится в файл?
ошибку выдаёт

[Error] Unit1.pas(51): Incompatible types: 'Integer' and 'Text'

[lmikle]

Ну, он, компилятор, говорит, что несоответсвие типов в переданных параметрах (или при присваивании). Смотри внимательно свой код.

[JohnnyBravo]

Вы и я не обратили внимание, должно быть closefile, а не fileclose.
Теперь подскажите, почему вылетает ошибка при конвертации strtofloat, пишет 'is not a valid floating point value'
Что то на точку ругается.
Значение с dde сервера берётся допустим 50.5 и в файл записывается 50.5.
В региональных настройках стоит разделение целой и дробной части точка.
Мне просто нужно число для того что бы произвести над ним вычисления. Подскажите в чём я ошибся?

[JohnnyBravo]

чё самое интересное, сделал t:=length(p);
т.е. 50,1 вроде бы 4 получается, не знаю считается ли запятая или нет, но в общем получилось 6