Сохранение в файл — Всем доброго времени суток!!!мне необходима помощь!)надо сделать сохра...

Сохранение в файл

Кузьмин В.В.

Посетитель

Сообщения: 2

[Сообщение #1] 30 июня 2011, 18:50

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

Кузьмин В.В.

Посетитель

Сообщения: 2

[Сообщение #2] 30 июня 2011, 18:52

ссылка на проект http://narod.ru/disk/17671055001/КОМПЛЕКСНЫЕ.rar.html

bugmenot

3-ий класс

Сообщения: 88

[Сообщение #3] 30 июня 2011, 19:17

Цитата:

Размер:
7.01 МБ

виконання програми розпочинається з того самого мiсця, де призупинилося.

ArtGal

1-ый класс

Сообщения: 1

[Сообщение #4] 30 июня 2011, 19:32

7 MB.
"Он над нами издевался"
В.Высоцкий. Канатчикова дача.

puporev

2-ой класс

Сообщения: 3

[Сообщение #5] 30 июня 2011, 19:40

А что Вы хотите увидеть в типизированном файле? Если хотите его читать, то объявите его текстовым
f:text;

puporev

2-ой класс

Сообщения: 3

[Сообщение #6] 30 июня 2011, 19:50

Замените в модуле

procedure tcomplex.files(b,s:string);
  var
  f:text;
  i:integer;
  fn:string;
 
 Begin
 assignfile (f,b);
 rewrite (f);
 writeln(f,s);
 closefile(f);
end;

А в программе

procedure TForm1.Button7Click(Sender: TObject);
begin
 z3.files('pr.txt',Edit5.text);
end;

min@y™

Доктор наук

Сообщения: 400

[Сообщение #7] 30 июня 2011, 20:11

Вижу, разобрались без меня. Пойду на диван тогда.

Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Ерёмин А.А.

*Администратор

Сообщения: 435

[Сообщение #8] 30 июня 2011, 22:00

Сейчас в основном 7 Мб — не проблема. Хотя архив проекта без лишних файлов больше 500 Кб не будет, не спорю ;-)

Всего сообщений: 8 (сейчас показаны: с 1 по 8)

Перейти в раздел:

Версия форума: 1.10 (19.01.2010)

Выполнено за 0.02 сек.

Обратная связь