Форум: "Прочее";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Жаждущий помощи   (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)

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

---

← →
SerJaNT ©   (2006-07-07 04:44) [6]

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);

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

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c