Как в делфи удалить все строки из поля Memo #224750


#0 by gar_den
Как?
#1 by demonas001
Clear не получается?
#2 by demonas001
Memo1.Clear
#3 by у лю 427
(1,2) - а это в зависимости от компоненты... иногда Clear  иногда Erase
#4 by Андрюха
Еще можешь так:
#5 by gar_den
получаться то получается но они потом не вставляются  AssignFile(f, 'champions.dat');  Reset(f);  i := 0;  Form2.Memo1.Clear;  while not eof(f) do    begin    read(f, rec);    inc(i);    s := rec.fio;    Form2.Memo1.Lines.Insert(i, s);    end;  CloseFile(f);  Form2.Show; На Form2 находится Memo1 куда нужно вывести все записи файла champions. Если перед эти не очистить Memo то записи почему-то выводятся повторно, а если написать Form2.Memo1.Clear то вообще ничего не заполняется
#6 by Лефмихалыч
может Memo.Lines.Clear?
#7 by Андрюха
Делай не Insert, а Add:
#8 by demonas001
да
#9 by insider
memo1.clear - очистка полная memo1.lines.add(<Моя строка>) - добавляем строку
#10 by romix
У меня все очищает: procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Clear; end;
#11 by demonas001
читай выше... у него хуже... У него "НЕ ВСТАВЛЯЕТ" :))
#12 by demonas001
а в файле точно есть записи? и точно это титизированный файл of rec? поставь перед выводом в мемо ShowMessage(rec.fio);
#13 by gar_den
спасибо
#14 by romix
Memo1.Lines.Add('Не вставляет'); Memo1.Lines.Add('говоришь?'); Memo1.Lines.Add(String('Может так вставит?'));
#15 by Viktor Zull
Memo1.Lines.Append('строка') - добавление строки в конец
#16 by speedster
AssignFile(f, 'champions.dat'); Reset(f); i := 0; Form2.Memo1.Clear; while not eof(f) do   begin   read(f, rec);   inc(i);   s := rec.fio;   Form2.Memo1.Lines.Insert(i, s);   end; CloseFile(f); Это все можно заменить на Form1.Memo1.Lines.LoadFromFile(<имя файла>);
#17 by ATI
Первокурсник?
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С