[vaska]

if FileExists('C:\123.txt') then
1;
2;
3;
else
4;
5;
6;

Вместо цыфр команды. Напмрер LaDiscr.Top:=240; или ImageFind.Picture.LoadFromFile(s.Strings[2]);

По какойто причине всё это неработает. Пишет что перед елсе нельзя ставить ; . Но если его там непоставить то ругается что отсутсвует ;

Вопрос: Как можно использовать между then и else больше чем 1 строчку?

[Ozerich]

Код:

if FileExists('C:\123.txt') then
begin
1;
2;
3;
end
else
begin
4;
5;
6;end;end.

[vaska]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s:TStringList;
begin
if FileExists('C:\123.txt') then
begin
s:=TStringLIst.Create;
s.LoadFromFile('C:\123.txt');
Edit1.Text:=s.Strings[0];
end
else
begin
ShowMessage('nea');
end;
end;

В любом случае показывает собщение nea. Хотя файл 123.тхт существует.

[Ozerich]

Не может такого быть

[AIT]

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

[vaska]

Спасибо большое! Это я ошибся в переменной на букву(такая переменная тоже имеется и её значение было равно " ". Поэтому естесвенно и писалось "неа".