Тема: Как сделать тест?
Показать сообщение отдельно
  #1  
Старый 10.01.2007, 18:53
Error Error вне форума
Прохожий
  
Регистрация: 10.01.2007
Сообщения: 33
Репутация: 10
По умолчанию Как сделать тест?
Хочу написать тест:

procedure TForm1.Button1Click(Sender: TObject);
var k:????????;
begin
k:=??????ToStr(Edit1.Text);
if k=a
then Label1.Caption:='Правильно!'
Else Label1.Caption:='Не правильно'
end;

Что нужно?
Ответить с цитированием