Delphi - *Флейм*

shurikan · Отправлено: **20:05, 19-11-2004** | #2

DillerInc

Это просто:

Код:

// Показываем результат

//            v - этот параметр имеет тип String
lbOutput.Caption :=   // мы присваиваем ему конкатенацию других строк

 Trim(edInput1.Text) // первая
+                               // складывается со следующей,
' '                              // вот этой. Результат - первая строка с пробелом на конце
+                              // складывается с...
cbSign.Items[cbSign.ItemIndex]
+                              // в конец результата опять добавляется
' '                              // пробел... и т.д.
+
Trim(edInput2.Text)
+
' = ' ;

DillerInc · Отправлено: **23:27, 19-11-2004** | #3

shurikan
Спасибо,конечно,за ответ.
Признаюсь,долго ломал голову над вышенаписанным.Но постараюсь как-нибудь разобраться.Правильно ли я понял,что

Цитата:

Trim(edInput1.Text)+' // это первая складывающаяся строка
'+cbSign.Items[cbSign.ItemIndex]+' // это вторая складывающаяся строка
'+Trim.edInput2.Text)+' // это третья складывающаяся строка
// и между ними стоит везде пробел

...или нет?

Новичёк · Отправлено: **00:14, 20-11-2004** | #4

DillerInc, нет, совсем не правильно

Строк тут шесть:
Trim(edInput1.Text) //1-ая
' ' //2-ая, содержит один-единственный пробел для //разделения
cbSign.Items[cbSign.ItemIndex] // 3-я
' ' // 4-я, опять только пробел
Trim(edInput2.Text) // 5-я
' = ' // символ "=" с пробелами - разделителями
Ты, как я понял, решил, что знаки конкатенации ("+") надо заключать вместе со строкой в апострофы? Если нет, то извини, зря я шум поднял

, а если нет... Вобщем, плюсы ЗА апострофами, просто строка тута такая, что можно запутаться

DillerInc · Отправлено: **00:58, 20-11-2004** | #5

Новичёк
Потихоньку туман начинает рассеиваться,в любом случае,огромное спасибо за разъяснения

.

P.S. Удивительно,почему в той самой книге Фаронова об этом ничего не говорится.

DillerInc · Отправлено: **22:17, 26-12-2004** | #6

Господа,имеется следующий код:

Код:

unit AssignFileU;

interface

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

type
  TfmExample = class(TForm)
    Panel1: TPanel;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    edInput: TEdit;
    lbOutput: TLabel;
    mmOutput: TMemo;
    procedure bbRunClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmExample: TfmExample;

implementation

{$R *.dfm}

procedure TfmExample.bbRunClick(Sender: TObject);
var
 F : TextFile;
 S : String;
begin
  AssignFile(F, 'Passion.srt');
  Reset(F);
while not EOF(F) do
begin
 ReadLn(F,S);
 mmOutput.Lines.Add(S)
end;
 CloseFile(F)
end;

Так вот при прогоне этой программы Delphi выдаёт мне ошибку "Declaration expected but end of file found".
Подскажите,пожалуйста,как это можно исправить и в чём тут дело.