Всем, Здравствуйте.
Подскажите пожалуйста, как мне сохранить переменную типа 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;
|
