Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

Ну КАк ВАМ СКАЗАТЬ!!!   Найти похожие ветки 

 
GOD ©   (2002-11-02 02:21) [0]

Этот вопрос адрессован к Мастакам или к людям, которые пытаются понять нас ламеров!!!
Ну к делу
Я пытаюсь написать поисковник, но как всегда проблемы
Ниже листинг и там прога не хочет выводить имена папок
HELP!!!
Да она может тяжело воспринимается т.к. написана на скорую руку!!!!
unit Antiv01;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}






procedure TForm1.Button1Click(Sender: TObject);
procedure dirsc;
var
name,Path,dir: string;
sr: TSearchRec;
i,Size:integer;
begin
if FindFirst(Path,$10, sr) = 0 then
begin
repeat
name:=sr.Name;
Size:=sr.size;
Canvas.TextOut(5,i,Path +" "+ name + " Size:" + IntToStr(size));
i:=i+20 ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
procedure filesc;
var
name,Path,dir: string;
sr: TSearchRec;
i,Size:integer;
f: Textfile;
begin
AssignFile(f,"q.q");
ReWrite(f);
i:=10 ;
dir:="" ;
Path:="C:\"+dir+"*.*";
if FindFirst(Path,$2f, sr) = 0 then
begin
repeat
name:=sr.Name;
Size:=sr.size;
Canvas.TextOut(5,i,Path +" "+ name + " Size:" + IntToStr(size));
i:=i+20 ;
Writeln(f,name," Size: ",size);
until FindNext(sr) <> 0;
FindClose(sr);
end;
CloseFile(f);
end;
begin

dirsc;
end;

end.


 
sask ©   (2002-11-02 09:21) [1]

Может стоит попробовать проинициализировать значения переменных "Path" и "i" в в процедуре "dirsc":

procedure dirsc;
var
name,Path,dir: string;
sr: TSearchRec;
i,Size:integer;
begin
i:=10 ;
Path:="C:\";
if FindFirst(Path + "*.*", $10, sr) = 0 then


 
sask ©   (2002-11-02 09:23) [2]

а Size всегда будет 0. Для директорий надо ручками размер считать... :))



Страницы: 1 вся ветка

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
6-34149
Freeze
2002-09-13 09:53
2002.11.11
Помогите!!! ПЛИЗЗЗ!!!


1-34001
Priisk
2002-11-01 19:50
2002.11.11
Изменить компонент Timage


14-34163
Дремучий
2002-10-24 12:37
2002.11.11
Всевозможные ДОС-меню....


1-33983
Дмитрий К.К.
2002-11-01 08:46
2002.11.11
Еще раз о создании компонентов в RUN-TIME


14-34160
^Sanya
2002-10-23 20:30
2002.11.11
Программа по составлению расписания ВУЗа...