Как работать с Editbox ом

← →
Kirill © (2002-08-11 23:52) [0]

Как работать с Editbox"ом (многострочный) - имеется ввиду быстрое сохранение в файл, чтение из файла, сколько строк и т.п. В примере №3 плохо описана работа с ним.

← →
Igit © (2002-08-12 05:38) [1]

Не знаю как в ЕдитБокс"е, а в РичЕдит"е так:
Колво строк - RichEdot1.Count (Ну это должно быть везде, стандарт)

Чтобы загрузить текст используйте функцию: function RE_LoadFromFile( const Filename: String; Format: TRETextFormat; SelectionOnly: Boolean ): Boolean; Сохранить: function RE_SaveToFile( const Filename: String; Format: TRETextFormat; SelectionOnly: Boolean ): Boolean; Filename - путь до файла Format - формат текста:

вот так:)

← →
Gandalf (2002-08-12 08:58) [2]

А чем Memo не угодил?
procedure TForm1.Button1Click(Sender: PObj);
var SL: PStrList;
begin
SL := NewStrList;
SL.LoadFromFile( "tst.txt" );
Memo1.Text := SL.Text;
SL.Free;
end;
Быстрее я не умею.

Программирование - это игра в кубики... Главное, знать, что из кубиков
можно построить домики :)

← →
Kirill © (2002-08-12 17:16) [3]

2Gandalf:
> А чем Memo не угодил?
Например тем, что он в MCK, а я работаю с KOL. Мне интересно именно для KOL"а.

← →
Vladimir Kladov (2002-08-13 12:11) [4]

Через TStrList.

чтение:
SL := NewStrList;
SL.LoadFromFile( ... );
Memo1.Text := SL.Text;
SL.Free;

За то время, что меня не было в сети точно так и придумал делать.

Как работать с Editbox ом Найти похожие ветки