Есть вопрос к Мастерам!

← →
GUYARD (2002-05-06 21:01) [0]

Проблема вот в чем:

Есть папка, в ней лежат несколько файлов:
C:\papka\file1.txt C:\papka\file2.txt C:\papka\file3.txt C:\papka\file5.txt C:\papka\file6.txt C:\papka\file7.txt C:\papka\file10.txt
Как вы видите, в конце имени каждого файла, есть его номер от 1 до …
Они могут идти по порядку, а может некоторых недоставать!
Как программно посмотреть, идут ли файлы по порядку или нет, причем количество их неизвестно! Если по порядку то в Label1.Caption пишем имя файла, который должен идти следующим, если нет тут уже сложнее, надо посмотреть какова файла первым не хватает и записать его имя и путь в Label1.Caption, в нашем случае это C:\papka\file4.txt, следующий уже идет C:\papka\file8.txt! Если бы все файлы в этой папке шли по порядку тогда в Label1.Caption было бы написано C:\papka\file11.txt!

А теперь, мастера, самое главное – КАК ЭТО ВСЕ СДЕЛАТЬ?
Помогите мне, пожалуйста!
Очень, очень прошу!
Заранее благодарен!

← →
Song (2002-05-06 22:11) [1]

Цикл. Если очередной файл не будет найден, значит файлы идут не по порядку.

← →
VID (2002-05-06 22:24) [2]

ну да, типа того :)

← →
poisn (2002-05-07 05:08) [3]

var s:string
i:integer=0;
X:integer;
begin
X:=GetNumOfMaxFile;
repeat
if (not FileExists("file"+inttostr(i))) and (s="") then s:="file"+inttostr(i);
inc(i);
until i<=X
if s<>"" then
label1.caption:=s else label1.caption:="file"+inttostr(x);
end;

← →
GUYARD (2002-05-07 18:02) [4]

Нет, не выходит! :(
Неправильно она считает!
:(
Напишите нормальный пример, пожалуйста!
Заранее благодарю!

← →
Man-In-Red (2002-05-07 18:31) [5]

Вот код, правда, немножко корявый, но работает!

procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; begin i := 1; repeat if fileexists("C:\papka\file"+inttostr(i)+".txt") then begin s := "C:\papka\file"+inttostr(i)+".txt"; i := i+1; end; until fileexists("C:\papka\file"+inttostr(i)+".txt")=false; if fileexists("C:\papka\file"+inttostr(i)+".txt")=false then s := "C:\papka\file"+inttostr(i)+".txt"; label1.Caption := s; end;

Есть вопрос к Мастерам! Найти похожие ветки