Работа с текстовым файлом... |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Работа с текстовым файлом... |
-Alex- |
12.11.2006 19:36
Сообщение
#1
|
Гость |
Сейчас пытаюсь перейти с Pascal на Delphi,написал простенькую прогу для создания текстового файла и записи в него чисел,но что-то она не пашет
Код unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(sender:Tobject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var f:textfile; n:integer; begin AssignFile(f,'c:\f.txt'); rewrite(f); for n:=1 to 100 do write(f,n); closefile(f); end; end. |
volvo |
12.11.2006 19:59
Сообщение
#2
|
Гость |
Что значит "не пашет"? Что говорит?
|
Гость |
12.11.2006 20:16
Сообщение
#3
|
Гость |
Высвечивается кнопка,которую надо нажать...жму её,а толку никакого...результата нет(
|
volvo |
12.11.2006 20:18
Сообщение
#4
|
Гость |
Что, файл не создается? Ты проверял? У меня например, создается... В корне диска C...
|
-Alex- |
12.11.2006 20:29
Сообщение
#5
|
Гость |
Сначала файл создавался...но например если последовательность чисел была 100,то в нём было записано где-то 66-68 чисел,начиная с 1.
Было так:нажимаю run,высвечивалась кнопка,нажимал кнопку,создавался файл,проект не заканчивался,был всё равно в процессе,нажимал второй раз кнопку,высвечивалась ошибка.... Переписал программу,теперь ваще ничего не создаёт...сколько не нажимай кнопку...щас попробую delphi заново поставить,может чего натыкал там не то...неопытный ведь ещё. |
Гость |
12.11.2006 21:01
Сообщение
#6
|
Гость |
Млин,она всё равно не работает,пишет,что прога "running",жми хоть 100 раз на кнопку,а толку нет...Кто знает,в чём тут проблема...
|
klem4 |
12.11.2006 21:11
Сообщение
#7
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Было так:нажимаю run,высвечивалась кнопка,нажимал кнопку,создавался файл,проект не заканчивался А ты что-то сделал для того чтобы он "закончился ?" Делай так например : procedure TForm1.Button1Click(Sender: TObject); И числа лучьше записывать в файл - одно число на одной строке. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
12.11.2006 21:13
Сообщение
#8
|
Гость |
Цитата А ты что-то сделал для того чтобы он "закончился ?" А если я не поставлю Application Terminate, цикл что, будет продолжаться вечно? И с каких это пор 1 .. 100 приравнивается к бесконечности?Ну, отработает OnClick, и все... Что-то другое здесь, скорее всего, действительно с установкой проблемы... |
Гость |
12.11.2006 21:22
Сообщение
#9
|
Гость |
Вчера с книги писал примеры,всё работало...Открываю другие примеры, всё работает,создаёт exe.Если же я чё-нить напишу,то ничего не выходит.Ваши советы тоже не помогают....(((
|
Vardes |
12.11.2006 21:33
Сообщение
#10
|
Пионер Группа: Пользователи Сообщений: 131 Пол: Мужской Репутация: 0 |
Ура...ура....теперь я понял свою ошибку....
Дело в том что для кнопки я вручную прописывал все процедуры, а надо было просто в древе объектов два раза на значок кликнуть...по этому поводу я хотел спросить у знатоков,из-за чего получается такая нестыковка...??? |
klem4 |
12.11.2006 23:37
Сообщение
#11
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Volvo ты не правильно меня понял я подумал, что автор хотел, чтобы после выполнения, окно программы закрывалось, по этому и предложил такой вариант, хотя это была моя догадка, делать этого конечно не стоило (гадать в смысле).
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 29.05.2024 0:15 |