Главная страница
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.018 c
1-34039
panna
2002-10-30 16:12
2002.11.11
Подскажите,пожалуйста!!!


14-34239
Polevi
2002-10-23 16:34
2002.11.11
http://www.yandex.ru/yandsearch?text=DS+J%7BETKB%3F+NJDFHBO+


4-34296
ДмитрийК.
2002-09-25 18:31
2002.11.11
Вывод на печать чертежей, построенныхв другой программе


1-34045
kofman
2002-10-27 18:52
2002.11.11
И еще вопрос по контрольной сумме


1-34123
Smirnoff
2002-10-31 19:40
2002.11.11
Как сделать наворот как например в IE?