Спасибо Ваш код намного меньше.
Но у меня проблема в том что когда использую переменную String обрезается часть текста
TStr.LoadFromFile(fname); //- строка 1000 символов
for t:=0 to TStr.Count-1 do
begin
str:=TStr.Strings[t]; //- строка 250 символов
в итоге часть текста пропадает
|