Вот часть кода:
PHP код:
...
if FileExists(Dir.Text + FLinks[j].JS) then
Memo1.Lines.LoadFromFile(Dir.Text + FLinks[j].JS)
else
LQuestion.Caption := 'Файл "' + Dir.Text + FLinks[j].HTM + '" не найден';
begin
Memo1.Text := UrlDecode(Memo1.Text);
Memo1.Text := ReplaceStr(Memo1.Text, '7c', '');
Memo1.Text := ReplaceStr(Memo1.Text, '|', #13#10);
for a := 0 to Memo1.Lines.Count - 1 do
if Length(Memo1.Lines.Strings[a]) = 12 then
if (Pos('split', Memo1.Lines.Strings[a]) = 0) then
begin
s2 := Memo1.Lines.Strings[a];
...
Выполняется всё отлично. Значение свойства Height = 17 (Как раз видна 1 строка), переменная s2 содержит то, что нужно.
Устанавливаю значение свойства Height < 17 (Строки не видно), переменная s2 пустая.
Устанавливаю значение свойства Height = 0, в переменной s2 вообще бред какой-то.
Почему так происходит?
P.S.
Delphi 2010 + Update 4/5 + Hotfix 2 + HelpUpdate 3