Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];
Вниз
Игра файлов Найти похожие ветки
← →
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 шампанского - и усё.. %)
← →
easy © (2008-03-12 19:07) [6]FindClose забыл. ну да ладно..
← →
palva © (2008-03-12 19:14) [7]easy © (12.03.08 19:04) [5]
Одним ударом, так сказать...
С одной стороны подорвал интеллектуальную мощь России.
С другой стороны подорвал обороноспособность России.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c
