Массив

← →
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]

ты с дуба рухнул и сразу в форум?

Reset na korpuse!!! (Dlia teh y kogo takaya shtuka escho ostalas - u menia uge net:))))

Хотя у меня есть мысль, почему у него записать не получается, наверно в директории файлов было больше чем 100...

Вот поиск и после того как 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);

подожди, а индекс то ты зачем убавляешь? классная у тебя логика парень...

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;

Массив Найти похожие ветки