Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

_saha_ (2002-12-02 15:53:00) [2]
Так было в оригинале (взято на этом же сайте):
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 13:55:00) [3]
у тебя проблемы с пониманием строковых и указательных типов.
var s:string;

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

Reindeer Moss Eater (2002-12-02 13:53:00) [4]
В интересном подходе к работе с динамическими строками

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »