Дизайн

[Desprado]

а форму для чего?
собственно "что знаний нет по этому я сюда и пришел.
вот скрин снова не правильно что то (
http://www.desprado.org.ua/screenshots/1.jpg

[Человек_Борща]

Присвоитть значение можно только в секции Begin ... end;
В секции var идёт обьявление переменных.

Я вижу ты хотел обьявить и присвоить значение сразу. Делается так:

var
S:string = 'Чему равна строка сразу';
begin
Теперь можно сразу сравнивать. т.к. 
S по умолчанию равно  'Чему равна строка сразу'.
end;

[Desprado]

аааааа( Да не получается у меня

[vovk]

Сообщение от Человек_Борща

Присвоитть значение можно только в секции Begin ... end;
В секции var идёт обьявление переменных.

Я вижу ты хотел обьявить и присвоить значение сразу. Делается так:

var
S:string = 'Чему равна строка сразу';
begin
Теперь можно сразу сравнивать. т.к. 
S по умолчанию равно  'Чему равна строка сразу'.
end;

поправочка, так можно поступать только с объявлением глобальных переменных.

[Desprado]

так?

procedure TForm1.btn1Click(Sender: TObject);
var
S:string=:'1234';
begin
s:='4321';
if (s = Edit1.text) then
memo.lines.add('Введённое слово: '+Edit1.text+' совподает с: '+s )
else
memo.lines.add('Введённое слово: '+Edit1.text+' не совподает с: '+s )
end;

end

[Человек_Борща]

vovk, спасибо не знал

Desprado, да так=)

[vovk]

Сообщение от Desprado

так?

procedure TForm1.btn1Click(Sender: TObject);
var
S:string=:'1234';
begin
s:='4321';
if (s = Edit1.text) then
memo.lines.add('Введённое слово: '+Edit1.text+' совподает с: '+s )
else
memo.lines.add('Введённое слово: '+Edit1.text+' не совподает с: '+s )
end;

end

потом если переменную задать тут

implementation
var
S:string='1234';

или тут

var
  Form1: TForm1;
  S:string='1234';
implementation

то можно задавать значение по умолчанию
в процедуре так не выйдет

[Desprado]

Просто я купил курс видео уроков по дефли. Тут Мужчина говорит по поводу if else then и у него совсем иначе..