Ошибка в проге :(

[Defender42]

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

Так а где у тебя стоит код???

form5.Label1.Caption:='Вы набрали  '+inttostr(b)+' баллов';
form5.Label2.Caption:='Ваша оценка  '+inttostr(marks);

Код стои на 5 форме


а может такое быть что он просто не прибавляет 1 за правильный ответ?

 begin
  w:=w+1;
  label1.Caption:='Вопрос № '+ inttostr(w);
  generate(word,wordright);
  label2.caption:=Какая буква пишется в данном слове '+ word+'?';
  wordp:=form4.Edit1.Text;
  if wordp=wordright  then  b:=b+1;
 end

Почему то № вопроса меняется при нажатие кнопки ,а балы не прибавляет.

[Stilet]

Код стои на 5 форме

Все равно что сказать что село Захудыловка стоит в солнечной системе...

а может

может. проверять надебно...

[Defender42]

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

может. проверять надебно...

Неделю сижу на этом касяке уже все перепробовал хз че делать

Если не сложно можешь проверить, мне диплом защищать через 2 часа, а прога с касяком



ПЛИЗ

программа.rar если че вот сама прога

[Stilet]

Ок. Скачал посмотрел
Убери совсем строку:

//form4.edit1.text:=' ';

Она тебе все обнуляет. Или поставь ее в конец процедуры.

[artemavd]

Мда...что-то как-то на четверочку с натягом тянет дипломчик (программа). Много ошибок. Перечислю некоторые косяки, как с точки зрения пользователя, так и с точки зрения программирования. С точки зрения пользователя (советы):
1. Сменить тип, а самое главное цвет приветствия (по глазам режет)
2. Убрать курсив со шрифта кнопок и сделать обычный (лучше читается)
3. Убрать цвет номера вопроса (опять же режет по глазам)
С точки зрения программирования:
1. Ну зачем делать проверку пароля, если файл с паролем располагается вместе с программой?
2. Что с размерами форм? Их пользователь должен подтягивать и регулировать, чтобы убрать скролбары?
Ну, в самом деле, вроде как если диплом, то должно быть как-то оформлено покрасивее все. ИМХО.
P.S. Моя курсовая немного по лучше была

[Defender42]

Всем спс!!!


ДИПЛОМ ПОЛУЧИЛ











P.S. Ошибка была в том, что он 1 вопрос не считывал а сразу выводил ответ на 2 вопрос