Что неправильно?

← →
Жаждущий помощи (2006-07-07 04:22) [0]

Тупая програмка имеет вид:
procedure TForm1.Button1Click(Sender: TObject); var a,b,f:real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); f:=sqr(sqrt(a)-sqrt(b)); Memo1.Clear; Memo1.Lines.Add("ответ равен - "+FloatTostr(f)); end; procedure TForm1.Button2Click(Sender: TObject); var f:textfile; begin SaveDialog1.Filter := "Файлы (*.txt)|*.txt|"; SaveDialog1.DefaultExt := "txt"; if SaveDialog1.Execute then AssignFile(f,SaveDialog1.Filename); Rewrite(f); end;
Подскажите что в ней неправильно, а то у меня открывается окно сохранения, но сохранённый файл пустой

← →
Mozart © (2006-07-07 04:25) [1]

А где ты вообще сохраняешь в файл?

← →
Жаждущий помощи (2006-07-07 04:26) [2]

> А где ты вообще сохраняешь в файл?

В смысле???.....просто на дикс Д(под названием "1") - всё это вписываю в окне сохранения
Наверное я твоего вопроса не понял

← →
SerJaNT © (2006-07-07 04:40) [3]

memo1.lines.savetofile(fn:string)??

← →
Джо © (2006-07-07 04:41) [4]

Ты, вероятно, думаешь, что процедура Rewrite построена на телепатическом принципе? =)

← →
Джо © (2006-07-07 04:41) [5]

> [4] Джо © (07.07.06 04:41)

Это автору ветки, конечно.

procedure TForm1.Button2Click(Sender: TObject);
var
f:textfile;
begin
SaveDialog1.Filter := "Файлы (*.txt)|*.txt|";
SaveDialog1.DefaultExt := "txt";
if SaveDialog1.Execute then
memo1.lines.SaveToFile(savedialog1.filename);
end;

← →
Жаждущий помощи (2006-07-07 04:46) [7]

> memo1.lines.SaveToFile(savedialog1.filename);

что-то я очень протормозил!!!.....извините

Что неправильно? Найти похожие ветки