Отчет по практике: Программа для подсчета выручки казино

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

К-во Просмотров: 315
Бесплатно скачать Отчет по практике: Программа для подсчета выручки казино