Форум: "Начинающим";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
ВнизОшибка в коде Найти похожие ветки
← →
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]да не нужно комментировать эти прижки с бубуном... нужно задачу озвучить конкретно...
← →
Сергей М. © (2008-02-07 16:24) [4]Хм ..
А если бы содержимое файла было чуть иным, ну, скажем, такое:
buben 1 timora_orc : (null)
buben_end
то что оно было бы как не прыжки с бубном ?)
А ведь всего-то то и изменений : одно слово в текстовом файле изменилось на другое - и класс превратился в бубен)
← →
Res (2008-02-07 16:35) [5]
> Хм ..
>
> А если бы содержимое файла было чуть иным, ну, скажем, такое:
>
>
> buben 1 timora_orc : (null)
> buben_end
>
> то что оно было бы как не прыжки с бубном ?)
>
> А ведь всего-то то и изменений : одно слово в текстовом
> файле изменилось на другое - и класс превратился в бубен
а мне не смешно ) когда надо заменить 104 класса в файле размером 150 мб+
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.03.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c