Nie musisz mnie traktować jak debila serio. Potrzebuje tylko pomocy z czymś z czym sobie poradzić nie umiem. Jeśli ktoś umie i CHCE pomóc to poproszę o pomoc. Z góry dziękuję.
Kod zapisu
procedure TForm2.Button1Click(Sender: TObject);
var
TF : TextFile;
pusty: string;
begin
max:=strtoint(label3.Caption);
pusty:= ' ';
if licznik<max
then
begin
AssignFile(TF, 'C:\plik.txt');
try
Append(TF);
Write(TF, inttostr(licznik));
Write(TF, pusty);
Write(TF, form2.edit3.text);
Write(TF, pusty);
Write(TF, form2.edit1.text);
Write(TF, pusty);
Writeln(TF, form2.edit2.text);
finally
CloseFile(TF);
licznik:=licznik+1;
form2.Label1.Caption:=inttostr(licznik)+'/'+form1.Edit1.Text;
end;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end
else
begin
AssignFile(TF, 'C:\plik.txt');
try
Append(TF);
Write(TF, inttostr(licznik));
Write(TF, pusty);
Write(TF, form2.edit3.text);
Write(TF, pusty);
Write(TF, form2.edit1.text);
Write(TF, pusty);
Writeln(TF, form2.edit2.text);
finally
CloseFile(TF);
form2.Hide;
form3.Show;
end;
end;
end;
dodanie znacznika <code class="delphi">
- @furious programming