| ← Июнь 2011 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
8
|
9
|
10
|
11
|
12
|
|
|
13
|
14
|
15
|
17
|
18
|
19
|
|
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
|
27
|
28
|
29
|
30
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rfpro.ru/
Открыта:
11-11-2009
Статистика
0 за неделю
RFpro.ru: Алгоритмы и теория программирования
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты данной рассылки
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Алгоритмы и теория программирования
Вопрос № 183483: Здравствуйте, уважаемые эксперты! Требуется разработать программу на Delphi-7. Задание Реализовать класс TLog, у которого будет метод Write(S: String); Метод Write будет записывать строчку в файл, добавляя в начало строки текущую дату и вре... Вопрос № 183483:
Здравствуйте, уважаемые эксперты! Требуется разработать программу на Delphi-7.
Отправлен: 02.06.2011, 10:14 Отвечает Киселёва Алёна aka Verena (Профессор) : Здравствуйте, lamed! Вот программа. Файл с настройками текстовый, называется ini_file.txt, в нём первой строкой пишем имя файла, второй - допустимую размерность. Если размерность превышена, класс добавляет к текущему имени файла число - номер "продолжения" и создаёт файл с новым именем. Работа с файлами через потоки TFileStream. Чтобы не было исключительных ситуаций, вся функция записи в блоке try. Вот исходник модуля с классом: Код : unit TLogClass;
interface
uses classes, SysUtils;
type TLog = class
private
filename: string; //имя файла
number: integer; //номер продолжения (при создании новых из-за размера)
max_len: Int64; //максимальная длина лога
fl: TFileStream; //поток
public
constructor Create (fname: string; n: longint);
//конструктор - инициализирует переменные и создаёт поток
destructor Destroy (); override;
//деструктор - уничтожает поток
function Write (S: string): boolean;
//функция записи (возвращает false, если возникла ошибка)
end;
implementation
destructor TLog.Destroy ();
begin
fl.Free;
inherited;
end;
constructor TLog.Create(fname: string; n: longint);
begin
filename := fname;
max_len := n;
number:= 0;
fl:= TFileStream.Create(filename, fmCreate);
end;
function TLog.Write(S: string): boolean;
const
CR=#13#10;
var
dt: TDateTime;
b: string;
begin
try //ловим все исключения
if (fl.Size>=max_len) then begin //если превысили длину файла
fl.Free; //освобождаем поток
inc (number); //формируем новое имя файла
filename:= IntToStr (number)+'_'+filename;
fl:= TFileStream.Create(filename, fmCreate); //открываем новый поток
end;
dt:= Now (); //берем время
b:= DateTimeToStr(dt);
b:= b+' '+s+#13; //добавляем к строке
fl.Write(pointer(b)^, length(b)); //пишем в файл
fl.Write(CR, 2); //перевод строки пишем в файл
Write:= true; //возвращаем true
except
Write:= false; //если были ошибки
end;
end;
end.
Вот исходник самой программы (в консоли вводятся строки для лога в бесконечном цикле): Код : program Log;
{$APPTYPE CONSOLE}
uses
SysUtils, classes,
TLogClass in 'TLogClass.pas';
const
CR=#13#10; //константа перевода строки
var myLog: TLog;
s, fn: string;
i, n: integer;
ini: TFileStream;
begin //чтение из файла настроек
ini := TFileStream.Create('ini_file.txt', fmOpenRead);
SetLength (s, ini.Size);
ini.Read(s[1], ini.Size); //читаем весь файл в строку
ini.Free;
i:= pos (cr, s);
fn:= copy (s, 1, i-1); //выделяем имя файла
n:= StrToInt (copy (s, i+2, length(s)-i-1)); //выделяем число N
myLog := TLog.Create(fn, n);
while (true) do //пишем строки в лог
begin
readln (s);
myLog.Write (s);
writeln ('Exit? y/n');
readln (s);
if (s='y') then break;
end;
end.
На всякий случай, прилагаю проект в Delphi 7. Удачи! Прикрепленный файл: загрузить » ----- Эта история - не для истории, понимаешь?
Ответ отправил: Киселёва Алёна aka Verena (Профессор) Оценка ответа: 5
Оценить выпуск »
Задать вопрос экспертам этой рассылки »Скажите "спасибо" эксперту, который помог Вам!Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТАна короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов) © 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.31 от 07.05.2011 |
| В избранное | ||
