Ошибка в коде

← →
Res (2008-02-07 15:59) [0]

Удалено модератором
Примечание: СПАМ

← →
Сергей М. © (2008-02-07 16:06) [1]

Хрень какая-то ..

Где в этом коде хоть что-либо, напоминающее манипуляции именно с классами ?

Вижу только какие-то прыжки с бубном вокруг строковых данных ..

Прокомментируй ..

← →
Res (2008-02-07 16:14) [2]

Есть текстовый файл. В нем распологаются классы например:

class 1 timora_orc : (null)
class_end

class 1 teleportation_cubic1 : (null)
handler 3 16 // TALKED
variable_begin
"talker"
"myself"
"_choiceN"
"_code"
"_from_choice"
variable_end

push_event // myself
push_const 704
add
fetch_i
push_event // talker
push_const 40
add
fetch_i
push_const 173990
push_const 75920
negate
push_const 5104
negate
func_call 184811596 // func[InstantTeleport]
shift_sp -4
shift_sp -1
handler_end

class_end

и т.п.

Задача: Заменить класс.
Делаю я так в memo1 закидываю классы для замены функция searchclass ищет в memo1 классы и добавляет в массив, причем если классов не найдет, то возращает "", если найдет, то возраещает "есть кое что :))))"
function searchclass(str:string):string; var int:array[1..30] of integer; x, y:integer; begin form1.kclass:=0; for x:=0 to form1.Memo1.Lines.Count-1 do begin int[1]:=Pos("class 1", form1.Memo1.Lines.Strings[x]); int[2]:=Pos(":", form1.Memo1.Lines.Strings[x]); if(int[1]<>0) and (int[2]<>0) then begin Inc(form1.kclass); SetLength(form1.newaim, form1.kclass+3); form1.newaim[form1.kclass]:=""; for y:=x to form1.Memo1.Lines.Count-1 do begin form1.newaim[form1.kclass]:=form1.newaim[form1.kclass]+form1.Memo1.Lines.Strings[y]+#13#10; if(Pos("class_end",form1.Memo1.Lines.Strings[y])<>0) then begin break; end; end; end; end; if(form1.kclass=0) then begin searchclass:=""; end else begin searchclass:="есть кое что :)))) "; end; end;

← →
Palladin © (2008-02-07 16:15) [3]

да не нужно комментировать эти прижки с бубуном... нужно задачу озвучить конкретно...

Хм ..

А если бы содержимое файла было чуть иным, ну, скажем, такое:

buben 1 timora_orc : (null)
buben_end

то что оно было бы как не прыжки с бубном ?)

А ведь всего-то то и изменений : одно слово в текстовом файле изменилось на другое - и класс превратился в бубен)

← →
Res (2008-02-07 16:35) [5]

> Хм ..
>
> А если бы содержимое файла было чуть иным, ну, скажем, такое:
>
>
> buben 1 timora_orc : (null)
> buben_end
>
> то что оно было бы как не прыжки с бубном ?)
>
> А ведь всего-то то и изменений : одно слово в текстовом
> файле изменилось на другое - и класс превратился в бубен

а мне не смешно ) когда надо заменить 104 класса в файле размером 150 мб+

Ошибка в коде Найти похожие ветки