Вверх ↑
Ответов: 1429
Рейтинг: 50
#1: 2011-03-16 21:35:28 ЛС | профиль | цитата
Assasin, вот:

Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: dcc32.exe "C:\Program Files\HiAsm\Elements\delphi\code\22.dpr" "-UC:\Program Files\HiAsm\." -Q
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

C:\Program Files\HiAsm\Elements\delphi\code\WinLayout.pas(159) Warning: Variable 'd' might not have been initialized

C:\Program Files\HiAsm\Elements\delphi\code\WinLayout.pas(176) Warning: Variable 'd' might not have been initialized

C:\Program Files\HiAsm\Elements\delphi\code\WinLayout.pas(40) Hint: Private symbol '_onObjDestroy' declared but never used

C:\Program Files\HiAsm\Elements\delphi\code\hiFTCG_Tools.pas(59) Hint: Variable 'PrevNeedInit' is declared but never used in 'THIFTCG_Tools.CreateInstance'

C:\Program Files\HiAsm\Elements\delphi\code\hiFTCG_Tools_8EA8BB0.pas(80) Error: There is no overloaded version of '_hi_OnEvent' that can be called with these arguments

C:\Program Files\HiAsm\Elements\delphi\code\hiFTCG_Tools_8EA8BB0.pas(12) Hint: Private symbol 'readData' declared but never used

C:\Program Files\HiAsm\Elements\delphi\code\hiFTCG_Tools_8EA8BB0.pas(13) Hint: Private symbol 'readDataInt' declared but never used

C:\Program Files\HiAsm\Elements\delphi\code\hiFTCG_Tools_8EA8BB0.pas(14) Hint: Private symbol 'readDataStr' declared but never used

C:\Program Files\HiAsm\Elements\delphi\code\hiFTCG_Tools_8EA8BB0.pas(15) Hint: Private symbol 'readDataReal' declared but never used

C:\Program Files\HiAsm\Elements\delphi\code\hiMainForm_8E3B250.pas(11) Fatal: Could not compile used unit 'hiFTCG_Tools_8EA8BB0.pas'
Сборка завершена.

А это результат:
code_22985.txt
------------ Дoбавленo в 14.47:
Netspirit, всеравно:

#pas
procedure TClassFTCG_Tools_8EA8BB0.event_doData(var Data:TData; index:word);
begin
resultat1 := 6 + 6;
val4 := '';
end;
------------ Дoбавленo в 21.35:
Вот так:

#hws
event(OnResult, str(Resultat))
Он печатает правильно:

#pas
procedure TClassFTCG_Tools_8EA8BB0.event_doData(var Data:TData; index:word);
begin
resultat1 := 6 + 6;
val4 := 'resultat1';
end;

Вот если бы еще кавычки убрать Может подредактировать функцию str ?
Может можно добавить свою функцию в язык, точную копию str, только без печати кавычек
карма: 0

0
файлы: 1code_22985.txt [1.8KB] [135]