Подскажите в чем я неправ

← →
_saha_ (2002-12-02 13:48) [0]

Привет всем!
Суть проблемы такова:
открываю, допустим, консоль с помощью createfile,
все ок, потом
var p:^string;
New(p);
p^:="1";
p^:=p^+"234";
i:=0;
writefile(f,p^,4,i,nil)
Dispose(p);
По моим понятиям на экране должно вывестись 1234, но выводиться какая-то лажа.
Так в чем я неправ?

← →
Reindeer Moss Eater (2002-12-02 13:53) [1]

В интересном подходе к работе с динамическими строками

← →
MBo (2002-12-02 13:55) [2]

у тебя проблемы с пониманием строковых и указательных типов.
var s:string;

writefile(f,@s[1],4,i,nil)

← →
_saha_ (2002-12-02 15:53) [3]

Так было в оригинале (взято на этом же сайте):
function Send(var Buf; size: word): integer;
var p: pointer; i: integer;
begin
(сюда добавил)
p := @Buf;
result := 0;
while size > 0 do begin
if not WriteFile(f, p^, 1, i, nil) then exit;
inc(result, i); inc(integer(p)); dec(size);
Application.ProcessMessages;
end;
end;
Я добавил
var buf:string
buf:="1234"

← →
MBo (2002-12-02 16:10) [4]

Пардон, у меня синтаксическая ошибка. Надо так:
writefile(f,s[1],4,i,nil);

Подскажите в чем я неправ Найти похожие ветки