При его запуске выдает ошибку
. А за Restorator спасибо хорошая программа.
И еще одно. Вот часть кода
procedure TProgra.knopka_soxranitClick(Sender: TObject);
var
tex:string;
fi : text;
begin
if CheckBox_poverh.Checked=true then
begin
tex:='1';
memo2.Lines.Add(tex);
memo2.lines.SaveToFile(SaveTextFileDialog2.FileName);
end
else if CheckBox_poverh.Checked=false then
begin
tex:='0';
assign (fi, 'save.txt');
rewrite(fi);
write(fi,tex);
end;
end;
Постоянно выкидывает ошибку. Что я не правильно написал? Хотя можно обойтись и без раскалевского кода, но хочется сделать именно так, но не получается.