[Ghostb]

Помогите, пожалуйста! Есть 5 полей Edit, в них находится нередактируемая информация, которая получается путем выполненеия матем. действий. Как из этих полей сохранить данные в новый файл с возможностью последующего сохранения и перезаписью предыдущих значений?

[Страдалецъ]

Запрет на редактирование в Edit распространяется только на ручной ввод, т.е. программно читать писать мы можем. Так-что читать писать можно из Edit1.Text

[Ghostb]

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
F1:String;
File1:TextFile;
begin
F1:=Edit1.text;
if SaveDialog1.Execute  then
    AssignFile(File1,'Test.txt');
    ReWrite(File1);

    WriteLn(File1,'Общая сумма всех значений = ' + F1 );
    WriteLn(File1);
    CloseFile(File1);//закрытие файла

почему не сохраняет в файл?

[AlexSku]

Всё сохраняется:
test.jpg
Просто код немного странный: обычно у SaveDialog запрашивают FileName. Или SaveDialog вообще не нужен?
Короче, или вы ищете свой файл под другим именем, или в другом месте.

[NumLock]

Сообщение от Ghostb

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
F1:String;
File1:TextFile;
begin
F1:=Edit1.text;
if SaveDialog1.Execute  then
    AssignFile(File1,'Test.txt');
    ReWrite(File1);

    WriteLn(File1,'Общая сумма всех значений = ' + F1 );
    WriteLn(File1);
    CloseFile(File1);//закрытие файла

в SaveDialog нажми Отмена!)

[Ghostb]

Да, спасибо, я его не там искал. сорь за беспокойство.