| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Ошибка в коде

Res ©   (2008-02-07 15:59:00) 

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

---

Res   (2008-02-07 16:35:00) [1]

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

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

---

Сергей М.   (2008-02-07 16:24:00) [2]

Хм ..

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

buben1 timora_orc : (null)
buben_end

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

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

---

Palladin   (2008-02-07 16:15:00) [3]

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

---

Res   (2008-02-07 16:14:00) [4]

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

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;

---

Сергей М.   (2008-02-07 16:06:00) [5]

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

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

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

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

---

Наверх