[Dem0Men]

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

Код:

1 2 3 4 5 6 7

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

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

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

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

Код:

1	RichEdit1.Lines.LoadFromFile(Path)

[Dem0Men]

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

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

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

[Dem0Men]

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

Код:

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

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

Код:

1 2 3

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

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

[Aristarh Dark]

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