Lasarus в школе

@mortg · Регистрация: 12.01.2011

Студворк — интернет-сервис помощи студентам

В школах ввели СПО, поэтому программирование изучаем на Lasarus. Я учитель информатики, язык изучаю самостоятельно. Не все получается. Например, создала тестовый редактор. В меню добавила действия: копировать, вставить и тд. Не работает код:
RichEdit1.CopyToClipboard; Где ошибка? И не могу разобраться с PopupMenu. Может кто помочь?

@Dekio · 11.02.2011, 21:28

Сообщение от mortg

Не работает код

Код в студию. Телепаты отдыхают

@mortg · 12.02.2011, 00:23 **[ТС]**

Сообщение от Dekio

Код в студию. Телепаты отдыхают

И что смешного? Вас же просто попросили помочь! Ну да, может я не так назвала, ну так поправьте, как правильно! Строить виртуальных умников не трудно, труднее на самом деле помочь.

@PB · 12.02.2011, 01:13

Сообщение от mortg

Я учитель информатики, язык изучаю самостоятельно.

Как же собираетесь учить, если сами спрашивайте элементарные вещи?
Вы ведь наверняка многое не до конца сами понимаете, как же собираетесь это преподавать?

@rangerx · 12.02.2011, 01:31

Сообщение от mortg

Не работает код:
RichEdit1.CopyToClipboard; Где ошибка?

Что значит не работает? Для TMemo работает аналогичная процедура?

Сообщение от mortg

И не могу разобраться с PopupMenu. Может кто помочь?

Подробнее. Что именно не понятно?

Добавлено через 4 минуты
"Основы программирования в среде Lazarus" - книга по Free Pascal и Lazarus(на первый взгляд неплохая).

@Dekio · 12.02.2011, 10:43

Сообщение от mortg

И что смешного?

Ничего

Сообщение от mortg

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

Для начала код выложите, а потом нойте. По 1 строчке трудно понять что и где не работает

@Iv_ · 12.02.2011, 22:53

Сообщение от mortg

Не работает код: RichEdit1.CopyToClipboard; Где ошибка?
И не могу разобраться с PopupMenu. Может кто помочь?

mortg, действительно, без кода вам никто не скажет, где у вас ошибка, т.к. она может быть где угодно. Ну и с PopupMenu тоже хотелось бы знать, что именно вас интересует.
А обижаться не стоит. Про отсутствие телепатов на форуме ещё в ПРАВИЛАХ написано.

@mortg · 13.02.2011, 17:06 **[ТС]**

Сообщение от PB

Как же собираетесь учить, если сами спрашивайте элементарные вещи?
Вы ведь наверняка многое не до конца сами понимаете, как же собираетесь это преподавать?

Не по теме:

Да, я еще учусь. А что, вы все знаете? Но если вы хороший "информатик", то должны знать, что основной мерой измерения информации - это уменьшение неопределенности наших знаний. И чем больше знаешь, тем больше граница наших не знаний. Не уверена, поймете ли Вы о чем это я. В школе по школьной программе вообще-то объектно-ориентированное программирование не изучается. Узнайте у знакомых, что изучается на информатике в общеобразовательной школе при 1 часе в неделю в 8 классе и 2 часах - в 9 классах? И мне вообще-то обидны вот такие высказывания о работе, которую я люблю. У меня в школе 58 компьютеров, сеть, школьный сайт, сетевой город, 5 мультимедийных компьютерных классов, Я одна и системный администратор, и веб -мастер и оператор базы ЕГЭ, сейчас еще внедряется СПО и надо все перенастроить. И у меня зарплата 14 тыс. Но работаю с большим удовольствием, и то что я самостоятельно изучаю Lasarus, разве плохо? Причем учимся вместе с учениками, я не строю из себя всезнающего специалиста, иногда и дети меня учат. Мне хорошо запомнила слова своего научного руководителя: "Вы выбрали такую специальность, что вам всю жизнь придется учиться" и я учусь. И даже горжусь тем, что не застряла на темах стандарта образования, а старюсь идти в ногу (или хотя бы не сильно отстать) от новых методик. Может для некоторых я покажусь не скромной. Но почему, если у вас был может не очень хороший учитель, вы стараетесь обидеть всех? Есть и плохие врачи, инженера, технички и продавцы, но не надо все равнять под одну гребенку. Пишу так потому, что наболело, как только где-то укажешь, что ты учитель, так обязательно найдутся такие, кто старается обидеть.

@mortg · 13.02.2011, 17:34 **[ТС]**

Сообщение от rangerx

Что значит не работает? Для TMemo работает аналогичная процедура?

Подробнее. Что именно не понятно?

Добавлено через 4 минуты
"Основы программирования в среде Lazarus" - книга по Free Pascal и Lazarus(на первый взгляд неплохая).

У меня есть такая книга я по ней и учусь.
Сейчас прикреплю фрагмент программы, Я в "рамках изучения" хочу создать вот такой проект (см рис) при выборе предмета он появлялся в поле мемо, и его можно было копировать вставлять и т.д.

@mortg · 13.02.2011, 17:39 **[ТС]**

Сообщение от Iv_

mortg, действительно, без кода вам никто не скажет, где у вас ошибка, т.к. она может быть где угодно. Ну и с PopupMenu тоже хотелось бы знать, что именно вас интересует.
А обижаться не стоит. Про отсутствие телепатов на форуме ещё в ПРАВИЛАХ написано.

Все делаю по инструкции, сборка успешно прошла, а вызвать контекстное меню не могу.

@Alex7777 · 13.02.2011, 18:44

> RichEdit1.CopyToClipboard

Я, конечно, извиняюсь, и никого не хочу обидеть, но в присланном тексте нет никакого RichEdit1. Может текст не тот? Есть там Memo1, и метод вызывается СutFromClipBoard.
Любопытно, а если перед этим выделить весь текст (или какой-нибудь там SelectAll вызывать) - тоже не работает?

@mortg · 14.02.2011, 03:50 **[ТС]**

SelectAll не работает.

Delphi
1
2
3
4
procedure TForm1.MenuItem11Click(Sender: TObject);
begin
Memo1.SelectAllToClipboard;
end;

Ошибка
unit1.pas(110,7) Error: identifier idents no member "SelectAllToClipboard"
Еcли событие OnClick на меню cut (или другое), то все работает. RichEdit1 для того чтобы то, что набиралось в поле мемо можно было печатать, я его пока убрала.

@Alex7777 · 14.02.2011, 08:07

Попробовал у себя:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.SelectAll;
  memo1.CopyToClipboard;
  memo2.Clear;
  memo2.PasteFromClipboard;
end;

Всё работает. Я в предыдущем ответе имел в виду, что прежде, чем делать копирование в буфер, надо выделить то, что собираетесь копировать. Аналогично тому, как Вы делаете в MS-Word, например, когда используете copy / paste.

@mortg · 14.02.2011, 15:49 **[ТС]**

"procedure TForm1.Button1Click(Sender: TObject);"
а мне надо в "procedure TForm1.MenuItem11Click(Sender: TObject);"

@Alex7777 · 14.02.2011, 16:02

А в чём разница-то? Вешаем тот же обработчик на событие OnClick пункта меню

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    Memo2: TMemo;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    procedure MenuItem2Click(Sender: TObject);
  private
  public
  end;
 
var
  Form1: TForm1; 
 
implementation
 
procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  memo1.SelectAll;
  memo1.CopyToClipboard;
  memo2.Clear;
  memo2.PasteFromClipboard;
end;

Я не очень понял, в чём заключается последний вопрос.

@mortg · 15.02.2011, 18:23 **[ТС]**

Я поняла в чем ошибка. Я писала "Memo1.SelectAllToClipboard;". Думала, что выделенный текст, командой ToClipboard автоматически добавляется в буфер обмена, т.е надо просто Memo1.SelectAll.
Спасибо. Хорошо, что есть такие корректные, спокойные люди, которые могут помочь, не "выпендриваясь". Спасибо еще раз.

@mortg · 15.02.2011, 18:41 **[ТС]**

У меня есть еще один очень важный вопрос. В делфи, когда компилируется программа, я ее спокойно могу переносить на , например, другой компьютер. В Lasarus, у меня не получается. Система у меня стоит EdUbuntu, Когда собираю проект создается файл типа "project1", у меня он работает как exe файл, а когда переношу на другой комп, он не работает. Как сделать проект типа exe файла? И можно ли созданный проект в Lasarus запустить в Windows&

@Alex7777 · 15.02.2011, 22:49

Ну тут надо смотреть, что на том другом компе.
Возможно, для программы есть зависимости (т.е. что-то должно быть установлено там). Такое же бывает и в Delphi с EXE, если, например EXE - шник собирается с пакетами BPL (т.е. они присутствовать тогда должны). Или ActiveX какой-нибудь используется, и т.д. А тут может что-то ставит сам Lazarus (но я его не знаю настолько, чтобы что-то конкретное сказать).
Возможно, на другом компе несколько другая ось. В разных *NIXах разные форматы исполняемых файлов. Я вот тоже по наивности пытался запустить прогу, сделанную в UBUNTU (правда, C-шную), под FreeBSD, пока админ не объяснил мне, какой я чайник :-)
Тут ведь не как в java - "один раз написали, работает везде" (ну, по крайней мере, теоретически). А тут "один раз написали - компилируется везде". Почувствуйте разницу. Поэтому на вопрос "можно ли созданный в Lazarus проект запустить в Windows" ответ напрашивается сам собой - можно, если только он был скомпилирован в Lazarus for Windows.
Ну и наконец, не могло ли получиться так, что при переносе затёрся признак "x" в правах доступа? Команда ls -lisa project1 что показывает? -rw-r--r-- какой-нибудь?

@mortg · 17.02.2011, 18:41 **[ТС]**

У меня и в школе стоит одинаковая ОС Edubuntu (с одного диска). И проект Lasarus, созданный дома не работает в школе и наоборот. Даже сделала так, принесла в школу свой съемный жесткий диск с проектами, Открываю, форма есть, редактор с программой есть. А не запускается и даже по новой не компилируется. Отчего так?

Добавлено через 9 минут

Сообщение от Alex7777

Ну и наконец, не могло ли получиться так, что при переносе затёрся признак "x" в правах доступа? Команда ls -lisa project1 что показывает? -rw-r--r-- какой-нибудь?

Я не поняла эту фразу, я вообще в Ubuntu работаю полгода, в консоле умею выполнять самые простые действия с папками, файлами , ну и инсталляцию. Я попробовала так "ls -lisa /home/tat/Документы/все проекты по Lasrus/Знаки зодиака/project1". Ответ "ls: невозможно получить доступ к по: Нет такого файла или каталога" Путь я прописала просто перетаскиванием файла в консоль, значит ошибиться не могла. Можно поподробнее.

@Iv_ · 21.02.2011, 08:19

Сообщение от mortg

Ну и наконец, не могло ли получиться так, что при переносе затёрся признак "x" в правах доступа?
Я не поняла эту фразу, я вообще в Ubuntu работаю полгода...

Для mortg:
Можно и в графическом интерфейсе установить права на выполнение файла.
Щелкните по файлу правой кнопкой, зайдите в Свойства --> Права, там поставьте галочку "Разрешить выполнение файла, как программы".

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@mortg 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 17

	Lasarus в школе 11.02.2011, 04:09. Показов 5577. Ответов 20 Метки нет (Все метки) В школах ввели СПО, поэтому программирование изучаем на Lasarus. Я учитель информатики, язык изучаю самостоятельно. Не все получается. Например, создала тестовый редактор. В меню добавила действия: копировать, вставить и тд. Не работает код: RichEdit1.CopyToClipboard; Где ошибка? И не могу разобраться с PopupMenu. Может кто помочь? 0

@Alex7777 10 / 0 / 0 Регистрация: 13.02.2011 Сообщений: 8
	13.02.2011, 18:44
	> RichEdit1.CopyToClipboard Я, конечно, извиняюсь, и никого не хочу обидеть, но в присланном тексте нет никакого RichEdit1. Может текст не тот? Есть там Memo1, и метод вызывается СutFromClipBoard. Любопытно, а если перед этим выделить весь текст (или какой-нибудь там SelectAll вызывать) - тоже не работает? 0

@mortg 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 17
	14.02.2011, 15:49 [ТС]
	"procedure TForm1.Button1Click(Sender: TObject);" а мне надо в "procedure TForm1.MenuItem11Click(Sender: TObject);" 0

@mortg 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 17
	15.02.2011, 18:23 [ТС]
	Я поняла в чем ошибка. Я писала "Memo1.SelectAllToClipboard;". Думала, что выделенный текст, командой ToClipboard автоматически добавляется в буфер обмена, т.е надо просто Memo1.SelectAll. Спасибо. Хорошо, что есть такие корректные, спокойные люди, которые могут помочь, не "выпендриваясь". Спасибо еще раз. Миниатюры 0

@mortg 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 17
	15.02.2011, 18:41 [ТС]
	У меня есть еще один очень важный вопрос. В делфи, когда компилируется программа, я ее спокойно могу переносить на , например, другой компьютер. В Lasarus, у меня не получается. Система у меня стоит EdUbuntu, Когда собираю проект создается файл типа "project1", у меня он работает как exe файл, а когда переношу на другой комп, он не работает. Как сделать проект типа exe файла? И можно ли созданный проект в Lasarus запустить в Windows& 0

@Alex7777 10 / 0 / 0 Регистрация: 13.02.2011 Сообщений: 8
	15.02.2011, 22:49
	Ну тут надо смотреть, что на том другом компе. Возможно, для программы есть зависимости (т.е. что-то должно быть установлено там). Такое же бывает и в Delphi с EXE, если, например EXE - шник собирается с пакетами BPL (т.е. они присутствовать тогда должны). Или ActiveX какой-нибудь используется, и т.д. А тут может что-то ставит сам Lazarus (но я его не знаю настолько, чтобы что-то конкретное сказать). Возможно, на другом компе несколько другая ось. В разных *NIXах разные форматы исполняемых файлов. Я вот тоже по наивности пытался запустить прогу, сделанную в UBUNTU (правда, C-шную), под FreeBSD, пока админ не объяснил мне, какой я чайник :-) Тут ведь не как в java - "один раз написали, работает везде" (ну, по крайней мере, теоретически). А тут "один раз написали - компилируется везде". Почувствуйте разницу. Поэтому на вопрос "можно ли созданный в Lazarus проект запустить в Windows" ответ напрашивается сам собой - можно, если только он был скомпилирован в Lazarus for Windows. Ну и наконец, не могло ли получиться так, что при переносе затёрся признак "x" в правах доступа? Команда ls -lisa project1 что показывает? -rw-r--r-- какой-нибудь? 0