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

Вниз

Помогите с динамическими массивами...   Найти похожие ветки 

 
Cr@sh   (2002-10-12 17:36) [0]

Подскажите, где моя ошибка?

type
TForm1 = class(TForm)
M1: TMainMenu;
Button1: TButton;
Memo1: TMemo;
Main1: TMenuItem;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
x:array of TMenuItem;
i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile("C:\items.txt");
setlength(x,memo1.Lines.Count);
for i:=0 to 10 do
begin
x[i]:=TMenuItem.Create(self);
x[i].Name:="n"+inttostr(i);
x[i].Caption:=memo1.Lines[i];
end;
m1.Items.items[0].Add(x);
finalize(x);
end;

end.


Если не ставить файналайз, то все работает хорошо, но при закрытии программы вылетает ошибка "Инвэлид поинтер валу"
А с файналайзом сразу после нажатия "аццесс виолатэйшн".
Где моя ошибка?
Заранее спасибо.


 
Cr@sh   (2002-10-12 18:47) [1]

Ну неучто никто не знает?


 
Anatoly P   (2002-10-12 18:54) [2]

Число 10 как-нибудь связано с кол-вом строк в файле?


 
Anatoly Podgoretsky   (2002-10-12 18:59) [3]

Тоже самое, размер устанавливаешь по memo1.Lines.Count, потом неожиданно цикл на 11 элементов и вообще не понятно для чего нужен массив?


 
TTCustomDelphiMaster   (2002-10-12 19:12) [4]

Зачем Вы освобождаете память finalize(x); если не Вы ее выделяли.


 
Anatoly P   (2002-10-12 19:12) [5]

for i:=0 to memo1.Lines.Count-1 do вместо твоей строки


 
Cr@sh   (2002-10-12 19:44) [6]

Спасибо всем огромное!
Все заработало.



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

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

Наверх





Память: 0.56 MB
Время: 0.035 c
3-78267
sdram
2002-10-02 16:22
2002.10.24
Помогите выполнить Refresh


1-78373
brestmarket
2002-10-13 14:38
2002.10.24
В WebBrowser грузятся НЕ все картинки (gif-изображения) ?!


6-78564
MikeZ
2002-08-22 23:48
2002.10.24
Вопрос: сеть и страница авторизации


3-78211
AFrolov
2002-10-03 13:36
2002.10.24
Подскажите, как в ClientDataSet сделать табличку


14-78666
Agent Smith
2002-10-04 19:01
2002.10.24
Сервер удаленного доступа и WinXP Pro





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