DGRADE
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Такой вот вопрос. Столкнулся с проблемой в компоненте Memo. Допустим у меня есть текстовый файл, в нем 3 строчки произвольной информации. Открываю файл, и хочу информацию отобразить на компоненте мемо. Проблема получилось такая, с помощью процедуры Read()я считываю первую строку, помещаю в инфу в строковую переменную, и помещаю из переменной в Memo1.Text(). затем, когда считывается следущая строка процедурой Readln, и помещаю в следущую строковую переменную, по идее она должна считать следущую строчку из файла. Затем я опять помещаю инфу из переменной в мемо.текст. Конечно, я не ожидаю, что он перейдет на новую строчку( хотелось бы узнать как это сделать), но уж то, что текст в компоненте мемо станет пуст я точно не ожидал.
Возможно написал слишком запутанно, я в этом деле еще начинающий.
Вот часть кода.
procedure TForm1.Button2Click(Sender: TObject);
var Buff1: String;
var I: integer;
begin
I:=0;
AssignFile(SomeFile,'c:\bd.txt') ;
Reset(SomeFile) ;
while I < 5 do
begin
Readln(SomeFile, Buff1);
Memo1.:=Buff1;
I:=I+1;
end;
end;
PS Вариант уже слегка модифицирован циклом. Но результат тот же... |
