File Manager и ОС

[alexprey]

AngeLvKedaX, ты в общем не разбираешься в программировании или только в mp?

[alexprey]

im_zorg, какой то корявый алгоритм. С длинными путями будет долго считывать и есть файлы такого типа "blabla.mp3.bak". Собственно функция достаёт из любого имени расширеине

function GetFileExt(name: string): string;
 var i: integer;
     c: char;
     return: string;
begin
 return:= '';
 for i:= Length(name)-1 downto 0 do
 begin
  c:= GetChar(name,i);
  if c <> '.' then return:= c + return else break;
 end;
 GetFileExt:= return;
end; 


[im_zorg]

в файле blablala.mp3.bak расширение bak а не как не mp3.bak!

[alexprey]

im_zorg, да я знаю, но согласно твоему алгоритму у тебя такой и достанет. Я имею ввиду mp3.bak так как ты находишь первую точку в строке, а надо последнюю

[Rock2roll]

Я просто год уже не писал на МП, ХТМЛ юзал)) зарабатывал сайтами. А многих функций МП и не знаю)) +логика моя не рулит))

[JACUK]

Нада в либу добавить функцию возвращения расширения!

[Rock2roll]

А надо бы...

[im_zorg]

Сообщение от alexprey

im_zorg, да я знаю, но согласно твоему алгоритму у тебя такой и достанет. Я имею ввиду mp3.bak так как ты находишь первую точку в строке, а надо последнюю

если я нахожу первую то функция copy скопирует от положение этой точки+1(ну чтоб без точки скопировалось) и до конца строки!!! соответственно и blabla.mp3.bak копирует mp3.bak

[im_zorg]

если надо с первой точки то не прибавляй 1 к положению точки...

[alexprey]

im_zorg а расширение то на самом деле bak. Я про это говорю.
Расширение это то что указывается после последний точки
пример:
txtfile.txt = .txt
mp3file.mp3 = .mp3
txtmp3File.txt.mp3 = .mp3
Можешь даже проверить указав на компьютере такое имя файла он выдаст последнее расширение

[Rock2roll]

ну просто очень прошу: помогите!!! Наведите пример простенького ФМ'a. ПРосто чтобы брал диски, можно переместиться в них, увидеть папки\файлы. Остальное сам доделаю...
просто ну ОЧЕНЬ нужно, а я даже представления не имею как делать

[Rock2roll]

Вот демка
Примечание: на рабочем столе плеер требует файл
mmc/8419a9368f6f.mp3
В приложении-редакторе "папка" в окне "С чего начать" требует root/imag.jpg
Сохранения картинок в обеих приложениях происходит в папку root/

[alexprey]

И так. Краткий курс по созданию ФС. Рассмотрю только как получить список дисков, как их правильно нарисовать, и как перейти к сл. папке.
1. Получаем список каталогов, диков

unit FS;
interface
function GetList: string;
procedure GetRoots;
procedure GetDirs(add: boolean; path: string);
procedure GetFiles(add: boolean; path: string);
implementation
uses jsr75i;
var list: string; список файлов будем заносить сюда
//Для того, чтобы её нельзя было изменить из внешнего модуля сделаем эту переменную только для чтения
function GetList: string;
begin
 GetList:= list;
endfunction
//Теперь получим список дисков
procedure GetRoots;
begin
 list:= jsr75i.get_roots;
end;
//А тут получим список папок
procedure GetDirs(add: boolean; path: string);
//add - добавить это в list или записать по новой
//path - путь
begin
 if add then
  list:= list+jsr75i.get_dirs(path)
 else
 list:= jsr75i.get_dirs(path);
end;
//Список файлов
procedure GetFiles(add: boolean; path: string);
//параметры аналогичны GetDirs
begin
 if add then
  list:= list+jsr75i.get_files(path)
 else 
  list:= jsr75i.get_files(path);
end; 


2 теперь как нам нарисовать это все.

...
uses parse {самое главное},fs;//наш модуль
...
procedure RenderItem(item: string; x,y: integer);
begin
 //тут рисуем конкретный айтем. Например
 //item - имя файла, папки, диска
 drawText(item);
end;

procedure RenderPath(path: string);
 var i: integer;
      list: string;
begin
 //Получим список нужных элементов
 //если path = :: значит мы будем получать список дисков, иначе список файлов и папок
 if path = '::' then fs.GetRoots else
 begin
  fs.GetDirs(false,path);
  fs.GetFiles(true,path);
 end;
 list:= fs.GetList;
 //Теперь надо разбить на элементы массива
 parse.clear;
 parse.line(list,'|');
 //Теперь можно рисовать
 for i:= 0 to parse.len-1 do
  RenderItem(parse.Get(i),5,i*15+5); //Заместо 5,i*15+5 указываешь нужный закон для указания координат. Здесь просто выводиться в столбик
end; 


Ну вот и все =)
Ещё советую завести переменную для хранения текущего пути. И во время перехода к сл. папке просто прибавляй название папки к текущему пути и заного вызывай процедуру рендера.

[Rock2roll]

Сяду разбирать. Спасибо

[Rock2roll]

Error, unit name must contain at least 2 characters