Войти

Показать полную графическую версию : [решено] Сохранение в файл


vovan1993
29-06-2011, 21:22
Всем доброго времени суток!!!мне необходима помощь!)надо сделать сохранение в файл результат того что считает прога но я не знаю потомучто такого на лекции не делали мне уже помогли с этим, но программа сохраняет не понятные символы вместо результата который выводится на экран. помоги пожалуйста переделать!если кто то решится напишите я скину файл)

LilLoco
29-06-2011, 22:01
В какай файл нужно сохранить? В обычный - текстовый? Переделать? Или нужно помочь Вам разобраться, чтобы Вы сделали это сами?

vovan1993
30-06-2011, 05:48
да в текстовый.ну не знаю если объясните и всё пойму то смогу тогда сам конечно сделать

LilLoco
30-06-2011, 07:29
vovan1993, Ну давайте посмотрим что там нужно!

vovan1993
30-06-2011, 16:28
а куда скинуть вам?просто сюда файл не прикрепляется

ferget
30-06-2011, 17:11
на файлообменник

vovan1993
30-06-2011, 17:26
http://narod.ru/disk/17671055001/%D0%9A%D0%9E%D0%9C%D0%9F%D0%9B%D0%95%D0%9A%D0%A1%D0%9D%D0%AB%D0%95.rar.html

LilLoco
30-06-2011, 18:56
vovan1993, не плохо было бы, если бы Вы дали наводку в какой папке и что искать)

Зачем там учебник флэш? Или что то такое, с таким названием)

vovan1993
30-06-2011, 19:01
LilLoco, извините))http://narod.ru/disk/17682132001/%D0%9A%D0%9E%D0%9C%D0%9F%D0%9B%D0%95%D0%9A%D0%A1%D0%9D%D0%AB%D0%95.rar.html

LilLoco
01-07-2011, 08:05
vovan1993, Вам нужно сохранять результаты при нажатии на кнопку "Сохранить"? Что конкретно нужно сохранять?

vovan1993
01-07-2011, 13:20
да при нажатии на кнопку сохранить.результат действия которое будет в это время в мемо

LilLoco
01-07-2011, 14:07
Самое простое это сделать так :

var
txt : TextFile;
begin
AssignFile(txt, "имя файла");
rewrite(txt);
writeln(txt, мемо.текст);
Close(txt);
end;

vovan1993
01-07-2011, 14:19
ну у меня же эдит там

ни чё чёто не понял

LilLoco
01-07-2011, 14:27
writeln(txt, мемо.текст); »
вместо мемо.текст поставьте Edit5.Text, и все это закиньте в процедуру нажатия кнопки сохранить
Вот так должно получиться:

procedure TForm1.Button7Click(Sender : Tobject);
var
txt : TextFile;
begin
AssignFile(txt, "имя файла");
rewrite(txt);
writeln(txt, Edit5.Text);
Close(txt);
end;

vovan1993
01-07-2011, 15:07
он чё то ругается на Close(txt);

LilLoco
01-07-2011, 15:11
vovan1993, Попробуйте CloseFile(txt);

vovan1993
01-07-2011, 15:54
LilLoco, спасибо огромное!!!всё работает!

ну теперь другая ошибка.при вычислении показательной формы.

LilLoco
01-07-2011, 16:06
ну теперь другая ошибка.при вычислении показательной формы. »
Ну это вряд ли из - за того, что было сделано сохранение.

неплохо было бы сообщение ошибки увидеть. И, наверное, это уже отнести к другой теме)

vovan1993
01-07-2011, 17:49
ну так то да)




© OSzone.net 2001-2012