[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

[cotseec]

Сообщение от JohnnyBravo

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

Вполне вероятно, что в тексте присутствуют пробелы или управляющие символы, попробуй сначала "обтримить" полученое число, т.е.

Код:

t:=StrToFloat(Trim(p));

[JohnnyBravo]

Собственно вот. Не выходит ...

[Error] Unit3.pas(49): There is no overloaded version of 'Trim' that can be called with these arguments

Потом просто сделал g:=Trim(y);
в итоге длина получилась 4, потом попробовал strtofloat и снова пишет ошибку 'There is no overloaded version ... '

[JohnnyBravo]

В общем после таких манипуляций

y := string(p);
str:=Trim(y);
g:=strtofloat(str);

выходит такая ошибка.

[JohnnyBravo]

DecimalSeparator и точку и запятую ставил, ничего не меняется.

[JohnnyBravo]

Ошибка - " is not a valid floating point value".
Могу предположить, что Вы исопльзуете функцию strtofloat. И коем-то образом на входе у Вас оказывается пустая строка.

интересно было бы узнать ,что на входе у меня.

[JohnnyBravo]

showmessage(str);
показывает пустое сообщение, до тех пор, пока я 2 раза не нажму на 'ok', далее отображается число ...

[lmikle]

Ну вот ты сам и ответил на свой вопрос - пустая строка там у тебя. Естественно, пустая строка не является числом с плавающей точкой.

[JohnnyBravo]

Да там событие происходит onchange и всё в одной процедуре. Сделал отдельную другую процедуру по таймеру, где происходит преобразование + вычисления, и тогда всё встало на свои места, причем через глобальную переменную.
Спасибо за советы.
А не подскажите ли вы мне, как задать формат числа при strtofloat, а то получается вот такое '2.53000000000000E+0001'? а нужно 25.3