калькулятор с выводом результата в файл

[yori]

доброго времени суток)) срочно нужна ваша помощь!!! Нужно написать калькулятор на Delphi с дополнительным сохранением в файл результатов, и вызовом этого результата из файла(отдельной кнопкой). исходников самого калькулятора полно, а вот с использованием файлов ничего найти не могу...

[Vladya]

Вот код основных функцый калькулятора:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3. Text := IntToStr(StrToInt(Edit1.Text) + StrToInt (Edit2.Text))
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3. Text := IntToStr (StrToInt(Edit1.Text) - StrToInt (Edit2.Text))
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit3. Text := IntToStr (StrToInt(Edit1.Text) * StrToInt (Edit2.Text))
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit3. Text := FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text))
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit3. Text := FloatToStr(StrToInt(Edit1.Text) div StrToInt (Edit2.Text))
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Edit3. Text := FloatToStr (StrToInt(Edit1.Text) mod StrToInt (Edit2.Text))
end;

Для открытия результатов из файла отдельной кнопкой напишите такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('Список.txt');
end;

Вместо Memo1 напишите тот компонент куда будет загружаться результат, а для сохранения, напишите вместо LoadFromFile - SaveToFile, соотвецтвенно вместо мемо напишете компонент из которого будут сохраняться данные.
Вроде все.

[Рітка-кулеметчиця]

Можна попробовать такrogram Calculator; {простейший калькулятор для выполнения арифметических
расчётов}
uses WinCrt; {подключаем модуль CRT для Windows}
{type} {раздел объявления типов}
label 1;
var {раздел описания переменных}
a,b,resultat:real; {числа, которые вводит пользователь и полученный рез.}
c:byte; {для цикла в основном блоке}
operation:char; {это символ арифметической операции +,-,* или /}
ChooseCalculator:char; {для выбора дальнейших действий}
procedure Zastavka; {процедура - заставка перед началом работы программы}
begin
ClrScr; {очистка экрана}
GotoXY (10,9);
WriteLn ('Это простейший калькулятор для арифметических расчётов');
GotoXY (28,11);
Write ('Нажмите ENTER');
ReadLn
end;
Procedure ChooseOfCalculate; {Процедура для выбора дальнейших действий}
begin
WriteLn ('Для продолжения работы с полученным результатом');
WriteLn ('нажмите дважды ENTER; для работы с новыми данными');
Write ('просто введите любой символ, ');
ReadLn (ChooseCalculator);
end;
procedure Calculate; {процедура калькулятора}
begin
ClrScr; {очистка экрана}
Write ('Введите первое число = ');
ReadLn (a);
Write ('Введите символ арифм. операции, только +, -, * или / ');
ReadLn (Operation);
Write ('Введите второе число = ');
ReadLn (b);
Case Operation of {выполнение операции по выбору}
'+' : resultat:=a+b;
'-' : resultat:=a-b;
'*' : resultat:=a*b;
'/' : resultat:=a/b;
Else WriteLn('Ошибка ввода операции!');
end; {конец оператора выбора}
WriteLn ('Результат равен = ',resultat:5:3)
end;
procedure CalculateMemory; {процедура калькулятора с использованием
предыдущего результата}
begin
WriteLn ('В качестве первого числа имеем ',resultat:5:3);
Write ('Введите символ арифм. операции, только +, -, * или / ');
ReadLn (Operation);
Write ('Введите второе число = ');
ReadLn (b);
Case Operation of {выполнение операции по выбору}
'+' : resultat:=resultat+b;
'-' : resultat:=resultat-b;
'*' : resultat:=resultat*b;
'/' : resultat:=resultat/b;
Else WriteLn('Ошибка ввода операции!');
end; {конец оператора выбора}
WriteLn ('Результат равен = ',resultat:5:3)
end;
begin {основной логический блок}
Zastavka;
Calculate;
1:ChooseOfCalculate;
if ChooseCalculator<>chr(13) then Calculate else CalculateMemory;
goto 1;
end.

[Рітка-кулеметчиця]

еслі помог з тебе отзив

[Рітка-кулеметчиця]

ето не то ето на паскал

[capta1n]

{$Apptype console} перед прогой

[Vladya]

Сообщение от Рітка-кулеметчиця

ето не то ето на паскал

Именно, для начала нужно хотябы условие прочитать.

[yori]

пасиба большое)))))