Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.02.2010, 23:25
AnimatoR AnimatoR вне форума
Прохожий
 
Регистрация: 16.02.2010
Сообщения: 8
Репутация: 10
Печаль eaccessviolation ошибка...

только начинаю пробывать работать в делфи...возникла проблема...

при запуске программы:

Код:
const d=20;
      n=50;
type
     stroka=string[d];
     ssilka=^stroka;
     text=array[1..n] of ssilka;
 var
     i,k,raz:integer;
     te:text;
     strok:ssilka;
     st:string;
begin
   k:=mmOutput.Lines.Capacity;
   New(strok);
   for i:=1 to n do   te[i]:=nil;
   for i:=1 to k do begin
                    st:=mmOutput.Lines.Strings[i-1];
                    te[i]^:= st;
                     end;
   for i:=1 to n do begin
                        if te[i]=nil then begin mmOutput.Lines.Add('пусто') ;
                                          end
                                      else
                                     mmOutput.Lines.Add(te[i]^);
                    end;

  Dispose(strok);


когда в мемо не пишешь ничего, т.е. все эл-ты массива Nil, то выводит "пусто" коректно.
Но стоит написать какой либо текст в мемо....так сразу вылетает с ошибкой...почему?что я сделал не так.Заранее спасибо.Если можно поподробнее.

Последний раз редактировалось AnimatoR, 16.02.2010 в 23:36.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:13.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025