[Dem0Men]

Здраствуйте!
У меня небольшой вопросик:
Когда я загружаю в RichEdit текст через Text File:

Код:

AssignFile(TxtFile,Path);
  Reset(TxtFile);
  while not eof(TxtFile) do
    begin
      Readln(TxtFile,Temp);
      RichEdit.Lines.Add(Temp);
    end;

В конце RichEdit'а получается пустая строка, которая не хочет удаляться через RichEdit.Lines.delete. Как её быстро удалить?

[Страдалецъ]

А не надо вообще так грузить, есть уже готовый метод:

Код:

RichEdit1.Lines.LoadFromFile(Path)

[Dem0Men]

В том и проблема, что так грузить я не могу

[Страдалецъ]

Аргументируйте. Почему не можете?

[Dem0Men]

Попытался за пару строк кода и пару минут решить, не получилось, и я заинтересовался. Поэтому аргументы привожу абстрактные:
В программе производятся какие-то вычисления,ивизуализируются в RichEdit построчно. Естественно пустая строка в конце не нужна.
А теперь, что не получилось:

Код:

Delete(RE.lines[RE.lines.count-1], Length(RE.lines[RE.lines.count-1]), 2);

Делфи ругается, а когда немножко поменял то, что нужно не происходит, т. е. я хотел удалить 2 служебных символа конец строки и перевод каретки. Пишу и и думаю, что надо было делать через lines.text . Вопрос: как сделать побыстрее(т.е. чтобы не тормозил на больших файлах) ?

[Pyro]

как сделать без быстро не знаю, а вот если ругается variable required то можно так

PHP код:

s := re.text
delete(s, length(s), 1)
re.text := s 


[Dem0Men]

Почти, сразу же, после написания предыдущего поста написал продобный код:

Код:

s := RE.text;
delete(s, length(s) - 1, 2);//стираем именно 2 символа!
RE.text := s;

Но он не работает на моей Delphi XE. Или я что-то не понял.
p.s. Своего поста, не Pyro.

[Aristarh Dark]

Вообще-то, если верить вездес(с)ущему хелпу, то Text у ричьЭдита - это Caption. Слетодавательно к отображаемому тексту он не имеет никакого отношения.