Delphi и TMemo. Пример за работа с мулти-полета за въвеждане в Делфи
Вие търсихте Delphi и TMemo. Пример за работа с няколко реда полета за въвеждане в Делфи, и по-специално за вас, ние сме подготвили този урок Delphi. Всеки урок ние се опитваме да предостави на Delphi изходния код, така че в края на статията Delphi и TMemo. Пример за работа с няколко реда полета за въвеждане в Делфи, можете да видите пример за Delphi и Delphi код, който ще позволи на Delphi да изследват и TMemo. Пример за работа с мулти-полета за въвеждане в Делфи-подробно.
Научете програмирането онлайн на интернет страницата www.DelphiSchool.3dn.ru и овладеят основите на програмирането. Образование Програмиране DelphiSchool този програмиране за начинаещи и опитни програмисти.
Фигура. Форма и TMemo отделна част от него
Сега нека създадем манипулатор събитие за бутона OnClick "Изчистване" и напишете следния код:
? 200 '200px': '' + (this.scrollHeight + 5) + 'пиксела ");"> процедура TForm1.CleanButtonClick (Sender: TObject # 41 ;;
започвам
MyMemo.Lines.Clear;
приключи;
? 200 '200px': '' + (this.scrollHeight + 5) + 'пиксела ");"> процедура TForm1.FormShow (Sender: TObject # 41 ;;
започвам
ако FileExists ( "Memo.txt" # 41, а след това
MyMemo.Lines.LoadFromFile ( "Memo.txt '# 41 ;;
приключи;
Нека да се прекъсне този код. В първия ред, ние проверяваме дали има Memo.txt файл и ако съществува, ние наричаме обект LoadFromFile линии с помощта на които ние се зареждат текста от Memo.txt в MyMemo.
Сега нека създадем манипулатор събитие за OnClose формата и напишете следния код:
? 200 "200px ':' '+ (this.scrollHeight + 5) +' пиксела"); "> процедура TForm1.FormClose (Sender: TObject; Var действие: TCloseAction # 41 ;;
започвам
MyMemo.Lines.SaveToFile ( "Memo.txt '# 41 ;;
приключи;
Това би означавало, че в края на програмата ни, всичко, което е писано в Memo ще се съхраняват във файл Memo.txt
И накрая, нека да видим как да програмно добавяне, изтриване и промяна на линията в Memo. За да направите това, използвайте Strings имоти собственост линии. Например, ако искаме да получим достъп до нулевата линия, след това да напишете MyMemo.Lines.Strings [0], на първа линия - MyMemo.Lines.Strings [1], и т.н.
Нека бутона "Добави", пише събитие манипулатор OnClick със следния код:
? 200 '200px': '' + (this.scrollHeight + 5) + 'пиксела ");"> процедура TForm1.AddButtonClick (Sender: TObject # 41 ;;
започвам
MyMemo.Lines.Add ( "Тази линия сега добавихме '# 41 ;;
приключи;
А за бутона "Изтрий" ще напише:
? 200 '200px': '' + (this.scrollHeight + 5) + 'пиксела ");"> процедура TForm1.DelButtonClick (Sender: TObject # 41 ;;
започвам
ако MyMemo.Lines.Count <> 0 след това
MyMemo.Lines.Delete (MyMemo.CaretPos.Y # 41 ;;
приключи;
В този пример, ние проверяваме как много редове в нашата компонент Memo, използвайки Lines.Count собственост. Ако тя е нула, тогава има ред и ние можем да изтриете текущия ред. За да премахнете метода Delete Lines обект, в който просто трябва да мине номера на реда, който искате да изтриете. За да разберете, ние използваме CaretPos собственост. който показва текущата позиция на курсора.
И накрая, ние пиша събитие манипулатор OnClick за бутона "Edit" и напишете кода:
? 200 '200px': '' + (this.scrollHeight + 5) + 'пиксела ");"> процедура TForm1.ChangeButtonClick (Sender: TObject # 41 ;;
започвам
MyMemo.Lines.Strings # 91; MyMemo.CaretPos.Y]: = 'Урок Delphi бележка;
MyMemo.Lines.Strings # 91; 0] = 'Променихме текста ";
приключи;
В първия ред на код, ние ще знаем позицията на курсора и промяна на низа на "Урок Delphi Memo", а вторият ред код, ние замени на първа линия на MyMemo "Ние променихме текста."
Фигура. Delphi Пример операция и TMemo
Свързани статии