![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() только начинаю пробывать работать в делфи...возникла проблема...
при запуске программы: Код:
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. |