Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

Динамические массивы в классах   Найти похожие ветки 

 
AndreyAG   (2002-11-11 10:36) [0]

Уважаемые Мастера! Помогите! В RunTime Ошибка в методе TWin:Create
Зараннее спасибо !

unit TTreeViewPlus;

interface


type

TWin=class
private
InSignals:array of boolean;
OutSignals:array of boolean;
RealSignals:array of boolean;
public
procedure Create();

end;



implementation

{ TWin }

procedure TWin.Create;
var
i:Integer;
begin
inherited Create();
SetLength(InSignals,8);
SetLength(OutSignals,8);
SetLength(RealSignals,8);
end;
end.


 
VaS   (2002-11-11 10:45) [1]

constructor Create();


 
icWasya   (2002-11-11 10:46) [2]

unit TTreeViewPlus;

interface


type

TWin=class
private
InSignals:array of boolean;
OutSignals:array of boolean;
RealSignals:array of boolean;
public
constructor Create();//!!!!!!!!!!!!!!!!!!!!

end;



implementation

{ TWin }

constructor TWin.Create;//!!!!!!!!!!!!!!!!!!!!!!
var
i:Integer;
begin
inherited Create();
SetLength(InSignals,8);
SetLength(OutSignals,8);
SetLength(RealSignals,8);
end;
end.


 
AndreyAG   (2002-11-11 10:57) [3]

То что предложил icWasya НЕ ПОМОГАЕТ


 
AndreyAG   (2002-11-11 11:01) [4]

Прблема возникает при вызове

SetLength(InSignals,8);
SetLength(OutSignals,8);
SetLength(RealSignals,8);


 
Smithson   (2002-11-11 11:02) [5]

Какая проблема7 Мы же все же не на спиритическом сеансе, твои чувства угадывать.
И на какой конкретно строчке из трех - пройди отладчиком


 
AndreyAG   (2002-11-11 11:12) [6]

Ошибка на строчке
SetLength(InSignals,8);

procedure DynArraySetLength(var a: Pointer; typeInfo: Pointer; dimCnt: Longint; lengthVec: PLongint);
var
i: Integer;
newLength, oldLength, minLength: Longint;
elSize: Longint;
neededSize: Longint;
p, pp: Pointer;
begin
p := a;// ВОТ ЗДЕСЬ ОШИБКА
........................
end;



 
Внук   (2002-11-11 11:22) [7]

>>AndreyAG © (11.11.02 11:12)
То, что написано в icWasya © (11.11.02 10:46), работает без проблем, да и не может быть иначе...


 
AndreyAG   (2002-11-11 11:46) [8]

Действительно работает если потом вызывать вот так:
procedure TMain.Button1Click(Sender: TObject);
var
A:TWin;
begin
A.Create;
end;

А если так то неработает

//*****************
var
A:TWin;
implementation

procedure TMain.Button1Click(Sender: TObject);

begin
A.Create;
end;

Т.е если объект локальный к процедуре то работает , а если
глобальный то нет ! Странно!


 
Skier   (2002-11-11 11:48) [9]

>AndreyAG
Мда..........
ВНИМАНИЕ !!! СОЗДАНИЕ ОБЪЕКТОВ !!! :)

procedure TMain.Button1Click(Sender: TObject);
var
A:TWin;
begin
A := TWin.Create;
try
//...работа с A...
finally
FreeAndNil(A);
end; //try
end;


 
AndreyAG   (2002-11-11 11:53) [10]

>Skier
Действительно Мда...
Огромное спасибо!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.009 c
3-69208
Geka
2002-11-01 15:44
2002.11.21
Evaluation version needs Delphi - к чему бы это?


4-69630
vidiv
2002-10-10 09:23
2002.11.21
SelectDirectory( Caption , ?????? ,dir); - ??????? - Для сети


1-69408
Barmaglot
2002-11-11 00:46
2002.11.21
Преобразование величины ...


14-69545
TTCustomDelphiMaster
2002-11-01 18:10
2002.11.21
Безопасный код :)


14-69579
PaRL
2002-11-03 19:13
2002.11.21
Скачать интернет страницу.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский