Changeset 4 for trunk/UDialingLog.pas

Timestamp:

Nov 27, 2008, 12:18:32 PM (15 years ago)

Author:

george

Message:

• Upraveno: Verze 1.3.

File:

• trunk/UDialingLog.pas (modified) (3 diffs)

trunk/UDialingLog.pas

@@ -10 +10 @@
   TDialingLog = class(TForm)
     Memo1: TMemo;
+    procedure FormShow(Sender: TObject);
   private
     { Private declarations }
@@ -15 +16 @@
     { Public declarations }
   end;
+
 
 var
@@ -23 +25 @@
 {$R *.dfm}
 
+uses
+  UTextFileStream, UMainForm;
+
+procedure TDialingLog.FormShow(Sender: TObject);
+var
+  TextFile: TTextFileStream;
+begin
+  try
+    TextFile := TTextFileStream.Create(MainForm.LogFileName, fmOpenRead);
+
+  finally
+    TextFile.Free;
+  end;
+
+end;
+
 end.