Объясните про строки в Delphi!!!

[Npwas]

Как задать цикл в Delphi, чтоб можно было ввести несколько строк!!! И как пользоваться Break, чтоб можно было ввести любое количество строк, а при введении допустим слова 'stop' программа прекращала выполнение этого цикла!!!

[QunneD]

И как пользоваться Break

break используются во свитчах.

Как задать цикл в Delphi

while, for

чтоб можно было ввести любое количество строк, а при введении допустим слова 'stop'

Для этого используем while и switch/if (как душе угодно).

Используем поиск по форуму, или вкуриваем справочники.

Если никто не поможет, то после ванны (через часок-полтора), накатаю примерчик.

[Npwas]

Если можешь то напиши пример!!! Так оно както по понятней будет!!!

[QunneD]

program App;

{$APPTYPE CONSOLE} // Указываем, то что это консольное приложение.

uses
  SysUtils, Windows; // Подключаем библиотеки SysUtils и Windows.

var
  cmd : string; // Объявляем переменную cmd с типом string.

begin

  SetConsoleTitle('My Application'); // Задаем заголовок нашего консольного приложения

// WriteLn - выводим текст, после окончания строки происходит автоматический перенос.
// Write - выводим текст, перенос не производиться.
// #13#10 - обозначает перенос.

  WriteLn('Hello! I am Console Application, and I can process your commands.'+#13#10); 
  WriteLn('To see avaible command list, type in /help.');
  WriteLn('If you want to exit this application, type in /quit.'+#13#10);
  Write('-> ');
  ReadLn(cmd); // Запрашиваем пользователя ввести текст, и заносим его в перем. cmd

  while not (cmd = '/quit') do // пока значение переменной cmd не = /quit, делаем:
  begin

    if (cmd = '/help') then // если значение переменной cmd = /help, то:
    begin
      WriteLn(#13#10+'Avaible command list:'+#13#10);
      WriteLn('/help - to see this help.');
      WriteLn('/showtext - to output text about author of this example.');
      WriteLn('/quit - to exit this application.'+#13#10);
    end
    else if (cmd = '/showtext') then // иначе, если значение переменной cmd = /showtext, то:
    begin
      WriteLn(#13#10+'Example by QunneD for programmersforum.ru'+#13#10);
    end
    else // в противном случае
    begin
      WriteLn(#13#10+'Unknown command.'+#13#10);
    end;

    Write('-> ');
    ReadLn(cmd);
  end;

  PostQuitMessage(0); // Посылаем код завершения 0

end.

[Npwas]

Спасиб огромное за столь обширное и развернутое пояснение, но зачем так все обременять библиотекой Windows?!


И для чего это PostQuitMessage(0); ?! Оно помойму и так работает без этого хорошо!!!
Эт код завершения чего именно?!

[QunneD]

PostQuitMessage(0)

Посылает код завершения 0, тоесть посылает сигнал о том что процесс можно завершить.

библиотекой Windows

Профессиональная привычка, из библиотеки Windows в конкретном случае используеться только PostQuitMessage, его можно было объявить и через external.

Рад что помог, удачи.

Помните, один вопрос - одна тема.