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