19.07.2009, 03:34
|
|
Участник форума
Регистрация: 03.09.2008
Сообщений: 155
Провел на форуме:
1201665
Репутация:
236
|
|
writeln(d) readln что и куда читает я не пойму...
попробуй заменить на:
или
Код:
var
f:System.Text;
begin
AssignFile(f,'C:\lol.txt');
Rewrite(f);
WriteLn(f, d);
CloseFile(f);
end;
у тебя процедура ничего не выводит procedure GetTransHandle(пусто);
begin
GetTransHandle(); //пустота
readln; //куда-то что-то читаем
end.
эт только догадки, может чем поможет |
|
|