Главная страница
    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.012 c
3-69177
Devid
2002-10-30 21:39
2002.11.21
Люди помогите плз...


1-69338
Blarior
2002-11-10 02:00
2002.11.21
Hellp


4-69649
kex86
2002-09-26 02:19
2002.11.21
Почему моя программа не кладется в кладовку?


14-69546
MFV
2002-11-01 22:30
2002.11.21
Проблемы с Виндой


1-69240
Александр
2002-11-11 16:07
2002.11.21
обучение (курсы) Delphi





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский