|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.12.2009, 21:17 | #1 |
Регистрация: 08.12.2009
Сообщений: 3
|
Проблема с LogList.Add
Доброе время суток.
У меня в процессе програмирования в Делфи возникла следующая проблема.... Задание: решение квадратных уравнений вкомплексных и нормальных формах + к этому всему нужно сделать протокол (который вызывается по клику на кнопку) в котором: • исходные данные, введенные пользователем; • выполняемые операции и результаты их выполнения; • в случае возникновения ошибки в файл записывается соответствующее сообщение. Собственно код unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Math; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button4: TButton; Label5: TLabel; Label1: TLabel; Label6: TLabel; procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; LogList:TStrings; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var a: integer; b: integer; c: integer; D: integer; x: real; x1: real; x2: real; begin if not trystrtoint(Edit1.Text,a) then Application.MessageBox(PChar('В поля можно вводить только цифры'),'Ошибка'); if not trystrtoint(Edit2.Text,b) then Application.MessageBox(PChar('В поля можно вводить только цифры'),'Ошибка'); if not trystrtoint(Edit3.Text,c) then Application.MessageBox(PChar('В поля можно вводить только цифры'),'Ошибка'); a:=strtoint(Edit1.Text); b:=strtoint(edit2.Text); c:=strtoint(edit3.Text); d:= sqr(b)- 4*a*c; if d>0 then begin x1:= (-b + sqrt(d))/(2*a); x2:= (-b - sqrt(d))/(2*a); Edit4.Text:='x1=' + FloatToStr(x1) +' x2=' + FloatToStr(x2); end; if D=0 then begin x:=-b/(a*2); Edit4.Text:='х='+ FloatToStr(x); end; if D<0 then begin Edit4.Text:='x1,2 =(' + FloatToStr(-b) + ' ± i * ' +FloatToStr(sqrt(-D))+ ') /'+FloatToStr(2*a) ; end; end; procedure TForm1.Button4Click(Sender: TObject); begin Form2.Show; Form2.Memo1.Lines.LoadFromFile('log .txt'); end; procedure TForm1.Button2Click(Sender: TObject); begin Form1.Close end; procedure TForm1.Button3Click(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; end; end. Непонятно следующее... Для того чтобы действия и результат записывался в файлик использую коману LogList.add (....) LogList.SaveToFile('log.txt'); Файл лог.ТхТ создан. не могли бы вы подсказаь что именно писть в LogList.add и в какой строчке. Спасибо. Последний раз редактировалось mellon; 09.12.2009 в 00:28. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод Add у TStringList | FaTaL | Общие вопросы Delphi | 7 | 21.09.2014 09:59 |
add project | lalilulelo | Помощь студентам | 3 | 26.05.2009 10:18 |
Set oDoc = w.Documents.Add | АлёнаP | Microsoft Office Word | 9 | 30.03.2009 16:21 |
delphi add all fields runtime | tarakan1983 | БД в Delphi | 1 | 24.03.2009 13:05 |
В чем разнича Add и text | plato | БД в Delphi | 1 | 30.01.2009 13:49 |