Соответствие скриптов адреналина паскалю ?

[Вася 0]

Ну это ) я его только начинаю пинать этот ....  и как и многие кто знает паскаль. Несколько в непонятках )  Доки по предмету тупые если и есть. Все методом полунаучного тыка. Исходя из чего неплохо Бы опытом поделиться.

принадлежность массиву?  in array  или in list

не смог заставить работать. Лист не принимает переменные , аррай не принимает IN

insert ( list, 12); //OK

insert(list, i);  // при var i:integer -> ошибка Лист не может содержать больше 256 значений ((

Если сделать массив, то IN не работает. 

IF 13 in arr // ошибка синтаксиса

Это в частности о поиске кто патиМембера атакует. Стандартное решение = цикл пати по циклу мобов и/или чаров с извлечением данных из класса методами.

этож блин тормоза = повесить проц на замесе.  Так оно работает. Но хотелось бы сделать правильно ))

 

 

StrToInt ))     нашел только FtoInt   

print ( 'oO!'+ FtoStr( i/1)) ; // не работает

 

 

[Blitzkrieg 19]

Не паскаль, а делфи.

Самое простое - работа с StringList

uses SysUtils, Classes;

var
StringList: TStringList;

procedure OnFree;
begin
  try
    StringList.free;
    print('List free');
  except
    print('Error free');
  end;
end;

procedure listcreate;
begin
StringList:= TStringList.Create;
end;

procedure strlistadd(str: string);
var
  i: word;
begin
  StringList.Duplicates:=dupIgnore;
  StringList.add(str);
  for i:= 0 to StringList.count-1 do print(StringList(i));
end;

function strsearch(str: string): boolean;
var
  i: word;
begin
  result:= false;
  i := StringList.IndexOf(str);
  if i >= 0 then result:= true;
end;

var
  c, rand: word;
  str: string;
begin
  listcreate;
  rand := 10+random(10);
  for c:= 0 to rand do
  strlistadd('txtadd '+IntToStr(c));
  print(strsearch('txtadd '+IntToStr(c)));

  try
    str := IntToStr(rand);
    print(StrToInt(str));
  except
  end;
end.

 

[Вася 0]

ну дельфи та оно и есть паскаль )) Один из. Как и этот скриптоязык.

А я просто прошляпил заюзать SysUtils

интересно как ИнтТуСтр  попал в СисУтилы ))