Файлы в TP7 и Delphi

[Сергей К.]

Задание: Создать файл каталог файлов. В отдельную строку занести записи, созданные ранее указанной даты.

[danekne]

Функции findfirst и findnext в делфях юзай

[danekne]

Ааа. и TSearchRec для определения даты создания

[Сергей К.]

Всем спасибо! Оказалось препод не так задание сформулировал. Надо рандомом создать имена и расширения файлов (но самих файлов не создавать), создать только один, в котором этим данные будут лежать. И к каждому "файлу" задать рандомом дату создания (дд.мм.гг). И вывести в конце те имена файлов, которые типа "созданы" ранее указанной даты.
Есть это прога в паскале. кто сможет переделать в делфи?

[Serge_Bliznykov]

если в Паскаль не использовались модули CRT и Graph - то задача вообще тривиальная. Достаточно в Delphi создать консольное приложение и ЦЕЛИКОМ вставить туда Вашу программу на Паскаль.

Если же нужно приложение с формами - то это уже чуть сложнее. Но я в вашей задаче не вижу наличие какого-то большого интерфейса с пользователем, поэтому подобная переделка тоже не должна вызвать сложностей.

[Сергей К.]

проблема как раз в том, что там и нужно сделать форму. с кнопками, окнами и т.д. Уже есть готовая прога сейчас постараюсь выложить. Только в ней один косяк. Если список файлов брать не из файла, а самому в окно вводить, то вместо тех букв/цифр, которые вводил, выводится "абра-кадабра" какая-то..

[Сергей К.]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GrUs: TGroupBox;
    LabUsl: TLabel;
    GrInput: TGroupBox;
    GrOutput: TGroupBox;
    MemoInput: TMemo;
    MemoOutput: TMemo;
    Button1: TButton;
    Button2: TButton;
    ChCreateFile: TCheckBox;
    StB1: TStatusBar;
    Sd1: TSaveDialog;
    Opd1: TOpenDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 type tm= text;
 var fo, fn: tm;
 InitF: Boolean; //для проверки открытия входного файла
{$R *.dfm}

Procedure Creat(Var f:tm);
 var t: String;
     i: Integer;
  Begin
   ReWrite(f);
   For i:=1 to 40 do
   Begin
    t:=chr(random(50)+60);
    Write(f,t);
   End;
   CloseFile(f);
  End;

Procedure Print1(var f:tm; m:TMemo);
  Var t,td,tm,tg: String;
     st: String;
  Begin
  st:='';
  While not(Eof(f)) Do
   Begin
    ReadLn(f,t);
    m.Lines.Add(t);
   End;
   //m.Lines.Add(st);
  End;

Function InitFile(var fn: TFileName; Flag: Boolean):boolean;
 Begin
 fn:='';
 InitFile:=False;
 //флаг отслеживает, тру - файл создаем, фалсе - файл открываем
 If Flag=True
  Then
   Begin
    Form1.sd1.Filter:='Text files (*.txt)|*.TXT';
    IF Form1.sd1.Execute then
     Begin
      InitFile:=True;
      Form1.sd1.DefaultExt:='.txt';
      fn:=Form1.SD1.FileName;
      fn:=fn;
     End;
   End
  Else
   Begin
    Form1.opd1.Filter:='Text files (*.txt)|*.TXT';
    Form1.opd1.DefaultExt:='.txt';
   If Form1.opd1.Execute then
    Begin
     InitFile:=true;
     fn:=Form1.opd1.FileName;
    End;
   End;
 End;

procedure TForm1.FormCreate(Sender: TObject);
begin
InitF:= False;
Randomize;
LabUsl.Caption:='Из символьного файла (char)' +
 '(NameA) скопировать все латинские'+
 'символы в новый файл. Отобразить' +
 'исходные данные и отобранные';
 
end;

procedure TForm1.Button1Click(Sender: TObject);
Var S: String[15];
name_n: TFileName;
begin
 MemoInput.Clear;
 if Not InitFile(name_n, chCreateFile.Checked) Then Exit;
 InitF:=True;
 StB1.Panels[0].Text:=S+name_n;
 Form1.Label1.Caption:=name_n;
 grInput.Caption:='Входной файл:';
  AssignFile(fo,name_n);
  if chCreateFile.Checked=true
   Then
    Begin
     Creat(fo);
     Reset(fo);
     Print1(fo,MemoInput);
     CloseFile(fo);
     End
   Else
    Begin
     Reset(fo);
     Print1(fo,MemoInput);
     CloseFile(fo);
    End;




end;

procedure TForm1.Button2Click(Sender: TObject);
Var t,td,tm,tg,DS,MS,GS: String;
 name_o: TFileName;
      s: String[15];
      k,d,m,g,dd,mm,gg: Integer;
begin

 IF (NOT InitF) Then
  Begin
   Application.MessageBox('Исходный файл не оределён!','ошибка!');
   Exit;
  End;

  IF NOT (InitFile(name_o,True)) Then Exit;
   AssignFile(fn,name_o);
   Stb1.Panels[1].Width:=Length(name_o)*6+15*5;
   s:='Выходной файл';
   Stb1.Panels[1].Text:=s+name_o+'.txt';
   Form1.Label1.Caption:=name_o;
   MemoOutput.Clear;
 //открываем, читаем, фильтруем, сохраняем
 Rewrite(fn); Reset(fo);

   k:=0;
   While Not Eof(fo) do
   Begin

dS:=Form1.Edit1.Text;
mS:=Form1.Edit2.Text;
gS:=Form1.Edit3.Text;
 dd:=StrToInt(dS);
 mm:=StrToInt(mS);
 gg:=StrToInt(gS);

    ReadLn(fo,t);
      td:=Copy(t,1,2);
      tm:=Copy(t,4,2);
      tg:=Copy(t,7,4);
      ShowMessage(td+' '+tm+' '+tg+'');
      d:=StrToInt(td);
      m:=StrToInt(tm);
      g:=StrToInt(tg);
      IF (gg>g) OR ((gg=g) AND (mm>m)) OR ((gg=g) AND (mm=m) AND (dd>d))

    Then WriteLn(fn,t);
    k:=k+1;
   End;
  CloseFile(fn);
  CloseFile(fo);
  Reset(fn);
  Print1(fn,MemoOutput);
  CloseFile(fn);
end;

procedure TForm1.Button3Click(Sender: TObject);
Var dS,mS,gS: String;
    dd,mm,gg: Integer;

begin
dS:=Form1.Edit1.Text;
mS:=Form1.Edit2.Text;
gS:=Form1.Edit3.Text;
 dd:=StrToInt(dS);
 mm:=StrToInt(mS);
 gg:=StrToInt(gS);

end;

end.

со слов препода, в той части, которая красная нужно что-то изменить, чтобы избавиться от того, что писал в прошлом комменте...



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.