Создание лог-файла

[Xeon332]

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

т.е. из полей Edit1 и Edit2 надо скопировать значения в текстовый файл с указанием времени, по клику на кнопке ОК. подскажите каким образом можно скопировать данные из ячеек Edit в тектовый файл.. заранее спасибо.

[mihali4]

Проще всего посмотреть в хэлпе примеры работы с ини-файлами. Там все очень удобно. Вам никто не запрещает дать им расширение .txt

[ArtInt]

Сначала объявляешь переменную для текстового файла . Потом при создании формы например открываешь данный файл для записи. Потом при Button1.Click делаешь запись в файл Writeln(F,Edit1.text+' '+Edit2.text+' '+ Datetostr(Date)). Когда форма закрывается делаешь закрытие связи с файлом.
Где то примерно так

var 
  F: TextFile;

procedure Button1.click(Sender: TObject);
begin
    AssignFile(F,'text.log'); 
    Rewrite(F);
    Writeln(F,Edit1.text+' '+Edit2.text+'  '+ Datetostr(Date));
    CloseFile(F);
end;

Можно через потоки записывать в файл, что является наиболее приемлемым по скорости и доступа к файлу. Например, в DelphiWorld есть примерно такая процедура для добавления строк в файл, можно ее переделать под свои нужды.

procedure AddStrToFile(S:string;const FileName:string;doNextLine:boolean);
{Добавление строки к файлу doNextLine - перевод строки}
const
  CR=#13#10;
var
  f:TFileStream;
begin
  if FileExists(FileName)
  then f:=TFileStream.Create(FileName,fmOpenWrite+fmShareDenyNone)
  else
  begin
    f:=TFileStream.Create(FileName,fmCreate);
  
  end;

  f.Position:=f.Size;
  if doNextLine and (f.Size> 0)
  then f.Write(CR,2);
  f.Write(pointer(s)^,length(s));
  f.Destroy;
end;

[Xeon332]

первый способ неплох - с ним разобрался (да только вот при каждой записи, предыдущие записи стираются - нельзя ли это исправить??)... со вторым способом куча неясностей... если это процедура, то каким образом её можно вызвать на выполнение по клику на кнопке? кто может объясните поподробнее пожалуйста второй способ записи...

[ArtInt]

Например есть Edit1 и кнопка Button при нажатии на которую добавляется запись в файл. Тогда примерно так:

procedure Button1.click (Sender: TObject);
begin
  AddStrToFile(Edit1.text,'myfile.log',true);
end;

Думаю, понятно, что первый параметр - это добавляемая строка, второй - название файла (может и путь там же), третья - переносить ли на следующую строку.

[EugeneIsmatulin]

Попробуй это
var
f: TextFile; // файл
fName: String; // имя файла
log : string;
begin
fName := ExtractFilePath(Application.ExeName )+'log.txt';
AssignFile(f, fName);
if fileexists(fName) then Append(f) else Rewrite(f);
log:= (Edit1.text+' '+ Edit2.text+ ' '+ Дата)
// запись в файл
writeln(f, log);
CloseFile(f); // закрыть файл
end;

[Xeon332]

спасибо всем за помощь!