IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Работа с текстовым файлом...
-Alex-
сообщение 12.11.2006 19:36
Сообщение #1


Гость






Сейчас пытаюсь перейти с Pascal на Delphi,написал простенькую прогу для создания текстового файла и записи в него чисел,но что-то она не пашетsad.gif
Код

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 21:13
Сообщение #2


Гость






Цитата
А ты что-то сделал для того чтобы он "закончился ?"
А если я не поставлю Application Terminate, цикл что, будет продолжаться вечно? И с каких это пор 1 .. 100 приравнивается к бесконечности?

Ну, отработает OnClick, и все... Что-то другое здесь, скорее всего, действительно с установкой проблемы...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 15.07.2025 2:07
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"