Введение в FormsABC: различия между версиями
Содержимое удалено Содержимое добавлено
Метка: редактор вики-текста 2017 |
Метка: редактор вики-текста 2017 |
||
Строка 472:
== Текстовый редактор ==
<syntaxhighlight lang="pascal" line="1">
uses System;
uses System.IO;
uses FormsABC;
Строка 486 ⟶ 488 :
menu.Add('File', 'Edit');
menu[0].Add('Save', procedure (item) ->
begin
var dialog := new SaveFileDialog();
if dialog.ShowDialog() = DialogResult.OK then
&File.WriteAllLines(dialog.FileName, editor.Text.Split(|'\n'|, StringSplitOptions.RemoveEmptyEntries));
end);
menu[0].Add('Open', procedure (item) ->
begin
var dialog := new OpenFileDialog();
if dialog.ShowDialog() = DialogResult.OK then
begin
editor.Text := string.Empty;
foreach var line in &File.ReadAllLines(dialog.FileName) do
editor.Text += $'{line}{Environment.NewLine}';
end;
end);
menu[0].Add('Exit', procedure (item) -> mainForm.Close());
menu[1].Add('Undo', procedure (item) -> editor.Undo());
menu[1].Add('Redo', procedure (item) -> editor.Redo());
Строка 493 ⟶ 516 :
menu[1].Add('Clear', procedure (item) -> editor.Text := string.Empty);
end.
</syntaxhighlight>
| |||