Игра файлов

← →
Ramzes001 © (2008-03-12 18:25) [0]

Доброго времени суток!
У меня давольно странная задача, необходимо чтобы программа брала полное название файла, "прочёсывала" папку где он хранится, и названия файлов с таким же расширением кидала в массив. Заранее спасибо.

← →
Плохиш © (2008-03-12 18:28) [1]

Я не понял, ты хвалишься или плачешь?

← →
Kolan © (2008-03-12 18:30) [2]

> Я не понял, ты хвалишься или плачешь?

Выдает задание нам видимо.

> Ramzes001

Вопрос где?

← →
tesseract © (2008-03-12 18:34) [3]

> У меня давольно странная задача, необходимо чтобы программа
> брала полное название файла, "прочёсывала" папку где он
> хранится, и названия файлов с таким же расширением кидала
> в массив. Заранее спасибо.

ExtractFileExt + FindFirst спасут лабу!

← →
JanMihail (2008-03-12 18:57) [4]

Смотрите-ка. Решили что Вам здесь готовый код дадут. Думайте своими кочерыжками. Тем более здесь думать почти нечего
ExtractFileName, ExtractFileExt, FindFirst и знание циклических оперторов.

← →
easy © (2008-03-12 19:04) [5]

эх, добрый я..
function GetSearchString(fullFileName:string):string; begin result:=ExtractFilePath(fullFileName) + "*" + ExtractFileExt(fullFileName); end; procedure TForm1.FormCreate(Sender: TObject); var SRec: TSearchRec; begin with Memo1, Memo1.Lines do begin Clear; ScrollBars:=ssVertical; if FindFirst(GetSearchString("C:\Windows\notepad.exe"), faAnyFile, SRec) = 0 then repeat Add(srec.Name); until FindNext(SRec) <> 0; end; end;

ps: ещё по 150 шампанского - и усё.. %)

FindClose забыл. ну да ладно..

easy © (12.03.08 19:04) [5]
Одним ударом, так сказать...
С одной стороны подорвал интеллектуальную мощь России.
С другой стороны подорвал обороноспособность России.

Игра файлов Найти похожие ветки