Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизМассив Найти похожие ветки
← →
Opera (2003-08-20 17:13) [0]Люди подскажите код очищения массива!!!
← →
Skier (2003-08-20 17:14) [1]FillChar(...)
← →
Юрий Федоров (2003-08-20 17:15) [2]>>Opera © (20.08.03 17:13)
только для динамических массивов так не делай :-)
← →
Skier (2003-08-20 17:17) [3]>Юрий Федоров © (20.08.03 17:15) [2]
для вектора можно.
Если конечно под очищением не имеется в виду DynArray := nil; :)
← →
Anatoly Podgoretsky (2003-08-20 17:20) [4]Какого массива
Что значит очищение
← →
Юрий Федоров (2003-08-20 17:22) [5]>>Skier © (20.08.03 17:17) [3]
Я имел в виду, что не писать так:
var a :array of byte
..
FillChar(a, sizeOf(a), 0);
:-)
← →
Digitman (2003-08-20 17:27) [6]лавры IronHawk"а , видать, не дают покоя)
тот год с лишним искал "как очистить переменную совсем")))
и ведь нашел, говорит !! ...)
← →
Opera (2003-08-20 17:30) [7]Вот мой массив какой ему код?
var
filenames: array [1..100] of string;
а потом
filenames[index]:=searchrec.name;
← →
Anatoly Podgoretsky (2003-08-20 17:32) [8]Ну на первый вопрос ты ответил, теперь напрягись и ответь, что такое очищение, для тебя конечно?
← →
Skier (2003-08-20 17:33) [9]>Юрий Федоров © (20.08.03 17:22) [5]
Это-то конечно ! :)
← →
Opera (2003-08-20 17:47) [10]Чтобы массив был чист!
А то в него вот так >filenames[index]:=searchrec.name;< записать уже не получится!
← →
Skier (2003-08-20 17:49) [11]Мда..."Бриллиантов всё ещё не видно"
← →
Palladin (2003-08-20 18:06) [12]
> Opera © (20.08.03 17:47) [10]
ты с дуба рухнул и сразу в форум?
← →
HolACost! (2003-08-20 18:11) [13]Reset na korpuse!!! (Dlia teh y kogo takaya shtuka escho ostalas - u menia uge net:))))
← →
Palladin (2003-08-20 18:15) [14]Хотя у меня есть мысль, почему у него записать не получается, наверно в директории файлов было больше чем 100...
← →
Opera (2003-08-20 18:50) [15]Вот поиск и после того как 1 раз нашел ни хера больше не ищет!
index:=1;
hfindfile:= findfirst(ProgDir+"\GameData\"+"*.ini",faanyfile,searchrec);
if hFindFile <> INVALID_HANDLE_VALUE then
repeat
inifile:=tinifile.Create(ProgDir+"\GameData\"+searchrec.Name);
if Fileexists(""+(inifile.ReadString("diks","run",""))) then
begin
filenames[index]:=searchrec.name;
end
else
begin
index:=index-1;
end;
index:=index+1;
until findnext(searchrec)<>0;
findclose(searchrec);
← →
Palladin (2003-08-20 19:00) [16]подожди, а индекс то ты зачем убавляешь? классная у тебя логика парень...
index:=1;
hfindfile:= findfirst(ProgDir+"\GameData\"+"*.ini",faanyfile,searchrec);
if hFindFile <> INVALID_HANDLE_VALUE then
repeat
inifile:=tinifile.Create(ProgDir+"\GameData\"+searchrec.Name);
if Fileexists(""+(inifile.ReadString("diks","run",""))) then
begin
filenames[index]:=searchrec.name;
index:=index+1;
end
until findnext(searchrec)<>0;
findclose(searchrec);
← →
Serginio1001 (2003-08-20 19:11) [17]inifile.Free;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c