g1one

Var I: Integer;
Var I: Boolean;
вот это переменная?
мемки я исправил а вот насчет вар я не понимаю..


[DCC Error] Unit3.pas(46): E2003 Undeclared identifier: 'flag'
[DCC Error] Unit3.pas(54): E2003 Undeclared identifier: 'flag'
[DCC Error] Unit3.pas(62): E2003 Undeclared identifier: 'flag'
[DCC Error] Unit3.pas(70): E2003 Undeclared identifier: 'flag'
[DCC Error] Unit3.pas(83): E2029 Statement expected but 'VAR' found
[DCC Error] Unit3.pas(83): E2029 ';' expected but 'VAR' found
[DCC Error] Unit3.pas(84): E2029 ',' or ':' expected but identifier 'ListBox1' found
[DCC Error] Unit3.pas(84): E2029 ',' or ':' expected but 'OF' found
[DCC Error] Unit3.pas(85): E2029 '..' expected but ':' found
[DCC Error] Unit3.pas(85): E2029 ',' or ':' expected but ';' found
[DCC Error] Unit3.pas(86): E2029 '..' expected but ':' found
[DCC Error] Unit3.pas(86): E2029 ',' or ':' expected but ';' found
[DCC Error] Unit3.pas(87): E2029 Type expected but 'END' found
[DCC Warning] Unit3.pas(108): W1011 Text after final 'END.' - ignored by compiler
[DCC Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit3.pas'

MrSTEP

Смотрим последнюю процедуру: после бегина идет строка var flag of. Она там не нужна.

Да, сейчас вы описали переменные. Теперь вам осталось вставить правильную строку в правильное место программы. Подумайте.
И у вас есть еще минимум одна ошибка. Будете тестировать - найдете.

P.S. Опишите переменную, половина ошибок отсеется.

g1one

пробывал я эти две переменные ставить в разные места не чего так и не происходило, он так и выдавал ошибку в варе.

MrSTEP

Да зачем две-то? Одну надо. И не I, а flag.
Найдите строки
var
Form3: TForm3;

и после них добавьте булевский флаг. Все глобальные переменные описываются именно тут.

Вар из последней процедуры выкинули?

g1one

Воо, сделал) да, вар выкинул, теперь выдает в
procedure TForm3.ListBox1Click(Sender: TObject);
begin
сase ListBox1.ItemIndex of
0: flag:=false;
1: flag:=true;
end;
пишет что ошибка в case и of

g1one

case я сделал, остались вот эти
Compiling Project1.dproj (Debug configuration)
[DCC Error] Unit3.pas(89): E2070 Unknown directive: 'TForm3'
[DCC Error] Unit3.pas(94): E2070 Unknown directive: 'TForm3'
[DCC Error] Unit3.pas(99): E2070 Unknown directive: 'TForm3'
[DCC Error] Unit3.pas(104): E2070 Unknown directive: 'TForm3'
[DCC Error] Unit3.pas(27): E2065 Unsatisfied forward or external declaration: 'TForm3.Memo3Change'
[DCC Error] Unit3.pas(28): E2065 Unsatisfied forward or external declaration: 'TForm3.Memo4Change'
[DCC Error] Unit3.pas(29): E2065 Unsatisfied forward or external declaration: 'TForm3.Memo2Change'
[DCC Error] Unit3.pas(30): E2065 Unsatisfied forward or external declaration: 'TForm3.Memo1Change'
[DCC Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit3.pas'

MrSTEP

Хм, ListBox у вас есть.. Такая форма записи у меня компилировалась.. Попробуйте переписать эту строчку, может где-то мелочь какая-то мешает.. А что за ошибка-то?

MrSTEP

Откуда у вас третья форма, и четыре мемо? Не знаю структуру вашего проекта, но лучше, наверно, создать новый проект, с одной формой. Процедуры все перекинуть туда не трудно.

g1one

Я на форме расположил 4memo ( memo1,memo2,memo3,memo4 ), а Form3 я сам не понимаю почему появились.

MrSTEP

Может все-таки в новый проект? Щас начнем удалять, только запутаемся..

Семитысячник!!!