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

← →
Hapastiks (2010-08-30 21:15) [0]

Пишу функцию которая будет разбивать строку на массив затем сбивает обратно в строку предварительно отредактировав

...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-08-30 21:20) [1]

Скажи, за каким чертом "разбивать строку на массив", если строка и так уже представима как массив ?
Что мешает обратиться к i-му символу в строке text как к i-му символу в массиве символов

A[i]

??

← →
Hapastiks (2010-08-30 21:58) [2]

я не весь код дал, там далєє типа так
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 22:03) [3]

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

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

← →
Hapastiks (2010-08-30 22:37) [4]

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

← →
Сергей М. © (2010-08-30 22:44) [5]

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

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

← →
Hapastiks (2010-08-30 22:55) [6]

проблему решил, она просто смешная: я пишу на delphi 2010 и там куча всего автоматом набирается и я массив объявил не вручную а горячей кнопкой и получилось вот так B: array of string; добавил размер и все работает извини что беспокоил по этому пустяку)))

← →
Anatoly Podgoretsky © (2010-08-31 08:55) [7]

Какой упорный "программист"

← →
Hapastiks (2010-08-31 11:00) [8]

А когда ты начинал у тя таких ситуацый небыло? Помоему в том и суть, ошыбитса но наити ошыбку

← →
Palladin © (2010-08-31 11:23) [9]

когда начинал Анатоль, у него не было "супер мудрых" автоподставляющих RAD... Он такую ошибку не мог допустить в принципе
ты школу то хоть закончил?

← →
Anatoly Podgoretsky © (2010-08-31 12:00) [10]

Не
> в принципе

а в принцыпе

← →
Омлет © (2010-08-31 14:27) [11]

На Украине всё хуже знают русский.

> Омлет (31.08.2010 14:27:11) [11]

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

← →
Hapastiks (2010-09-01 13:46) [13]

Удалено модератором
Примечание: Правила форума читаем и уважаем. Как и русский язык.

← →
Hapastiks (2010-09-01 14:20) [14]

А что тогда делать когда тебя почти откровенно оскорбляют а когда пишешь ты, модер говорит "Запрещено правилами" а другие посты сомнений не вызывают?

> Hapastiks (01.09.2010 14:20:14) [14]

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

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

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

Ошыбка функцыи Найти похожие ветки