Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошыбка функцыи

Hapastiks © (2010-08-30 21:15:00)
Пишу функцию которая будет разбивать строку на массив затем сбивает обратно в строку предварительно отредактировав

...min:=1; count:=length(text) div 15; for i:= 1 to Length(text) do if i mod Count = 0 then begin Inc(Kil); A[kil]:=copy(Text,min,Count); min:=i+1; end; a[15]:=copy(Text,min,(Length(text)-min));...
и выбивает ошибку типа read of adres 0000004
А компилятор подсвечивает строку min: = i +1
Я никак не могу разобраться (((
Подскажите что делать:?:

Плохиш (2010-09-01 16:24:00) [1]

> Hapastiks (01.09.10 14:20) [14]
>
> А что тогда делать когда тебя почти откровенно оскорбляют

Кто ж тебя оскорбляет, озабоченный?
Это ты оскорбляешь коверканием русского языка.

Anatoly Podgoretsky (2010-09-01 15:18:00) [2]
> Hapastiks (01.09.2010 14:20:14) [14]

Быку не все дозволено.

Hapastiks (2010-09-01 14:20:00) [3]
А что тогда делать когда тебя почти откровенно оскорбляют а когда пишешь ты, модер говорит "Запрещено правилами" а другие посты сомнений не вызывают?

Hapastiks (2010-09-01 13:46:00) [4]
Удалено модератором
Примечание: Правила форума читаем и уважаем. Как и русский язык.

Anatoly Podgoretsky (2010-08-31 14:50:00) [5]
> Омлет (31.08.2010 14:27:11) [11]

Вероятнее всего он не знает ни русский, ни украинский. Если конечно с
Украины.

Омлет (2010-08-31 14:27:00) [6]
На Украине всё хуже знают русский.

Anatoly Podgoretsky (2010-08-31 12:00:00) [7]
Не
> в принципе

а в принцыпе

Palladin (2010-08-31 11:23:00) [8]
когда начинал Анатоль, у него не было "супер мудрых" автоподставляющих RAD... Он такую ошибку не мог допустить в принципе
ты школу то хоть закончил?

Hapastiks (2010-08-31 11:00:00) [9]
А когда ты начинал у тя таких ситуацый небыло? Помоему в том и суть, ошыбитса но наити ошыбку

Anatoly Podgoretsky (2010-08-31 08:55:00) [10]
Какой упорный "программист"

Hapastiks (2010-08-30 22:55:00) [11]
проблему решил, она просто смешная: я пишу на delphi 2010 и там куча всего автоматом набирается и я массив объявил не вручную а горячей кнопкой и получилось вот так B: array of string; добавил размер и все работает извини что беспокоил по этому пустяку)))

Сергей М. (2010-08-30 22:44:00) [12]

> первое же присвоении вызывает ошибку

Ну и чему равно kil при первом присвоении ?

Hapastiks (2010-08-30 22:37:00) [13]
Разбиениє строки на массив было в первом посту
..Inc(Kil); A[kil]:=copy(Text,min,Count);..
но там уже другая проблема: первое же присвоении вызывает ошибку

Сергей М. (2010-08-30 22:03:00) [14]

> не весь код дал, там далєє типа так
>

И где то самое "разбиение строки на массив" в этом самом "далее типа так" ?

Hapastiks (2010-08-30 21:58:00) [15]
я не весь код дал, там далєє типа так
result:= '[color=#000000]'+A[1]+'[/color]'+'[color=#111111]'+A[2]+'[/color]'+'[color=#222222]'+A[3]+'[/color]'+ '[color=#333333]'+A[4]+'[/color]'+'[color=#444444]'+A[5]+'[/color]'+'[color=#555555]'+A[6]+'[/color]'+ '[color=#666666]'+A[7]+'[/color]'+'[color=#777777]'+A[8]+'[/color]'+'[color=#888888]'+a[9]+'[/color]'+ '[color=#999999]'+A[10]+'[/color]'+'[color=#aaaaaa]'+A[11]+'[/color]'+'[color=#bbbbbb]'+A[12]+'[/color]'+ '[color=#cccccc]'+A[13]+'[/color]'+'[color=#dddddd]'+A[14]+'[/color]'+'[color=#ffffff]'+A[15]+'[/color]';
Можно попытатса и без массива, но тогда и так большой код станет еще большим (ведь там таких процедур около десатка)
Но попробую, а потом атпишусь.

Сергей М. (2010-08-30 21:20:00) [16]
Скажи, за каким чертом "разбивать строку на массив", если строка и так уже представима как массив ?
Что мешает обратиться к i-му символу в строке text как к i-му символу в массиве символов

A[i]

??

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »