[Sky.NET]

Вот часть кода:

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

[Bars1992]

Действительно странно... Возможно надо перерисовать компонент? послать ему сообщение на перерисовку?

[Sky.NET]

Перерисовка не помогает.
Я так понял, что если не видно хотябы одой строки в TMemo, то нарушается структура текста.
Скорее всего это такой баг...

[Bars1992]

Сообщение от Sky.NET

Перерисовка не помогает.
Я так понял, что если не видно хотябы одой строки в TMemo, то нарушается структура текста.
Скорее всего это такой баг...

Скорей всего да. Я в 2009 тоже баги находил (при работе с ресурсами). Есть вариан данные сохранять в TstringList а потом просто Memo1.Lines.Assign(твой обйект)

[Kapitoshka438]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

TMemo = class(TCustomMemo) ... end;   ...   constructor TCustomMemo.Create(AOwner: TComponent); begin ...   FLines := TMemoStrings.Create;   TMemoStrings(FLines).Memo := Self; ... end;   ...   TMemoStrings = class(TStrings)   private     Memo: TCustomMemo; protected     function Get(Index: Integer): string; override; // Это функция, которая достает значение свойства Strings[i] ... end;   function TMemoStrings.Get(Index: Integer): string; var   Text: array[0..4095] of Char; begin   Word((@Text)^) := SizeOf(Text);   SetString(Result, Text, SendMessage(Memo.Handle, EM_GETLINE, Index,     Longint(@Text))); end;