Отчет по практике: Программа для подсчета выручки казино
private
{Private declarations}
public
{Public declarations}
end;
var
Form2: TForm2;
implementation
uses fil, Math;
{$R *.dfm}
*процедура создания нового дилера
procedure TForm2. Button2Click (Sender: TObject);
var
q: string;
w: TextFile;
begin
q:= Edit1. Text + ' ' + Edit2. Text;
Form2. ComboBox1. Items. Add(q);
Form2. Close;
Form1. ComboBox3. Items. Add(q);
AssignFile (w, 'c:\file.txt');
If not FileExists ('c:\file.txt')
Then Rewrite(w)
else Append(w);
Writeln (w, Edit1. Text + ' ' + Edit2. Text);
CloseFile(w);
end;
procedure TForm2. FormHide (Sender: TObject);
begin