[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]

Код:

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;