не понятен урок!

[Инспектор ГУЛ]

вот сам урок:

Инструкция (цикл) WHILE
Эта инструкция применяется в том случае, когда нужно выполнить несколько раз определенные действия. Причем заранее не известно, сколько раз этот цикл выполнять – это становится ясно только во время работы программы.

Синтаксис инструкции такой:

while условие do инструкция;
или расширенный вариант:

while условие do begin
инструкция 1;
инструкция 2;
...
инструкция n;
end;
Здесь условие – переменная или выражение логического типа. Сначала вычисляется условие. Если условие ложно (False), то цикл не выполняется и сразу заканчивает работу. Если же условие истинно (True), то цикл выполняет инструкции, затем вновь возвращается к условию. Если условие опять возвращает True, цикл выполняется еще раз, и так до тех пор, пока условие не вернет False. Будьте осторожны с этим циклом! Не включайте туда условие, которое никогда не станет False. Компьютер в таком случае "зациклится", то есть зависнет. Обычно для этого внутрь цикла помещают счетчик – переменную целого типа. Только в отличие от цикла for, здесь переменная не увеличивает свое значение автоматически, за этим должен следить сам программист. Пример применения инструкции:

i := 1;
while i < 10 do begin
ShowMessage('Число равно ' + IntToStr(i));
i := i + 1;
end;
В этом простом примере мы целой переменной i присваиваем значение 1. Затем выполняем цикл while до тех пор, пока i не станет больше или равно 10. Если бы мы внутри цикла не указали "i := i + 1;", то этого никогда бы не произошло, и мы зациклили бы программу! Попробуйте выполнить этот пример в новом проекте, привязав код к обработке нажатия кнопки. В дальнейшей практике Вам не раз придется использовать этот цикл с куда более полезными примерами.

мне не понятно какую программу нужно сделать вконце урока, и что она должна делать? Кто может - отправьте исходники, и если это не долго - объясните мне популярно?

Заранее всем мой Молодёжный РЕСПЕКТ!!!

[fbus]

ставишь на форму кнопку
в переменных объявляешь i как integer,
в обработчике пишешь

i := 1;
while i < 10 do begin
ShowMessage('Число равно ' + IntToStr(i));
i := i + 1;
end;

[Инспектор ГУЛ]

а что делает эта программа? и... можно всё таки исходники ваши помотреть, а так не очень то понятно...

[Stilet]

Эта программа 10 раз вываливает сообщение мол число на этой итерации цикла равно тому-то. Фактически показывая чему равен счетчик цикла.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); var i:integer;
begin
    i:= 1;
while i < 10 do begin
ShowMessage('Число равно ' + IntToStr(i));
i := i + 1;
end;
end;

end.

[Инспектор ГУЛ]

ничё не понял... вставляю этот код в делфи, предворительно создав кнопку, - запускаю приложение - выдаёт какую то ошибку... Да и что делает она я так и не понял... можно более понятным языком объяснить, просто я новичок, многих слов и терминов не знаю... а?

[Stilet]

Инспектор ГУЛ

тупое копипасте не поможет. это не паскаль.
Для этого нужно создать в инспекторе обьектов в дизайнере (когда еще не запустил прогу) обработчик событий на создание формы. т.е. OnCreate.
Впрочем можно просто двойной клик по форме.
Откроется код обработчика. Пустой.
Его и переподделай кодом выше, тем который в
procedure TForm1.FormCreate(Sender: TObject);

Инспектор ГУЛ

Мож тее книжечку подчитать?

[Пепел Феникса]

а вы скажите какая ошибка?
и желательно код где она вылазит, обьясним все...

цикл while обычно полезен тогда когда кол-во итераций(проходов цикла)
неизвестно, например кол-во проходов зависит от того нашли мы например нужный файл или нет(например ищем файлы с майкой Файл**.txt где ** это число, и нужно искать самый последний файл из таких)

[Hollander]

Слушай, как ты думаешь чем мы можем помочь, если ты пишешь выдаёт какую то ошибку?
Поставь себя на место тех, кто пытается тебе помочь.
Ты мне сможешь помочь в вопросах в которых ты разбираешься, если я спрошу: У меня что-там, не знаю где, но как-то так.
Задавай конретно вопросы. Какой ты вставил, куда. Купи книжку по Delphi почитай.

[Инспектор ГУЛ]

Мож тее книжечку подчитать?

Какую например? Сколько книг не читал, всегда попадалось ... А в этих курсах мне хоть чуть чуть что то понятно. Ну если вы знаете хорошую книгу, где учат программированию с нуля - дайте ссылку пожалуйста! Буду рад!

[Hollander]

Сообщение от Инспектор ГУЛ

Сколько книг не читал, всегда попадалось полное Г****!!!

Конечно бывают не очень понятные книги, но судя по этим словам, проблема совсем не книгах. На ум приходит пословица: Гляжу в книгу - вижу фигу.
Вот тут неплохие книги http://www.programmersclub.ru/book/
И вот http://wm-help.net/books/category/delphi.html вторая книга "Delphi Быстрый СтартЭю
Если они не помогут обратись к репетитору.