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

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

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

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:
Можно и в графическом интерфейсе установить права на выполнение файла.
Щелкните по файлу правой кнопкой, зайдите в Свойства --> Права, там поставьте галочку "Разрешить выполнение файла, как программы".

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

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	11.02.2011, 21:28	2
	Сообщение от mortg Не работает код Код в студию. Телепаты отдыхают 0

@mortg 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 17
	12.02.2011, 00:23 [ТС]	3
	Сообщение от Dekio Код в студию. Телепаты отдыхают И что смешного? Вас же просто попросили помочь! Ну да, может я не так назвала, ну так поправьте, как правильно! Строить виртуальных умников не трудно, труднее на самом деле помочь. 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	12.02.2011, 01:13	4
	Сообщение от mortg Я учитель информатики, язык изучаю самостоятельно. Как же собираетесь учить, если сами спрашивайте элементарные вещи? Вы ведь наверняка многое не до конца сами понимаете, как же собираетесь это преподавать? 0

@rangerx 2021 / 1620 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	12.02.2011, 01:31	5
	Сообщение от mortg Не работает код: RichEdit1.CopyToClipboard; Где ошибка? Что значит не работает? Для TMemo работает аналогичная процедура? Сообщение от mortg И не могу разобраться с PopupMenu. Может кто помочь? Подробнее. Что именно не понятно? Добавлено через 4 минуты "Основы программирования в среде Lazarus" - книга по Free Pascal и Lazarus(на первый взгляд неплохая). 1

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	12.02.2011, 10:43	6
	Сообщение от mortg И что смешного? Ничего Сообщение от mortg Строить виртуальных умников не трудно, труднее на самом деле помочь. Для начала код выложите, а потом нойте. По 1 строчке трудно понять что и где не работает 0

@Iv_ 36 / 36 / 7 Регистрация: 08.01.2011 Сообщений: 137
	12.02.2011, 22:53	7
	Сообщение от mortg Не работает код: RichEdit1.CopyToClipboard; Где ошибка? И не могу разобраться с PopupMenu. Может кто помочь? mortg, действительно, без кода вам никто не скажет, где у вас ошибка, т.к. она может быть где угодно. Ну и с PopupMenu тоже хотелось бы знать, что именно вас интересует. А обижаться не стоит. Про отсутствие телепатов на форуме ещё в ПРАВИЛАХ написано. 0

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

@mortg 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 17
	13.02.2011, 17:39 [ТС]	10
	Сообщение от Iv_ mortg, действительно, без кода вам никто не скажет, где у вас ошибка, т.к. она может быть где угодно. Ну и с PopupMenu тоже хотелось бы знать, что именно вас интересует. А обижаться не стоит. Про отсутствие телепатов на форуме ещё в ПРАВИЛАХ написано. Все делаю по инструкции, сборка успешно прошла, а вызвать контекстное меню не могу. Миниатюры 0

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

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

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

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

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

@mortg 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 17
	17.02.2011, 18:41 [ТС]	19
	У меня и в школе стоит одинаковая ОС Edubuntu (с одного диска). И проект Lasarus, созданный дома не работает в школе и наоборот. Даже сделала так, принесла в школу свой съемный жесткий диск с проектами, Открываю, форма есть, редактор с программой есть. А не запускается и даже по новой не компилируется. Отчего так? Добавлено через 9 минут Сообщение от Alex7777 Ну и наконец, не могло ли получиться так, что при переносе затёрся признак "x" в правах доступа? Команда ls -lisa project1 что показывает? -rw-r--r-- какой-нибудь? Я не поняла эту фразу, я вообще в Ubuntu работаю полгода, в консоле умею выполнять самые простые действия с папками, файлами , ну и инсталляцию. Я попробовала так "ls -lisa /home/tat/Документы/все проекты по Lasrus/Знаки зодиака/project1". Ответ "ls: невозможно получить доступ к по: Нет такого файла или каталога" Путь я прописала просто перетаскиванием файла в консоль, значит ошибиться не могла. Можно поподробнее. 0

@Iv_ 36 / 36 / 7 Регистрация: 08.01.2011 Сообщений: 137
	21.02.2011, 08:19	20
	Сообщение от mortg Ну и наконец, не могло ли получиться так, что при переносе затёрся признак "x" в правах доступа? Я не поняла эту фразу, я вообще в Ubuntu работаю полгода... Для mortg: Можно и в графическом интерфейсе установить права на выполнение файла. Щелкните по файлу правой кнопкой, зайдите в Свойства --> Права, там поставьте галочку "Разрешить выполнение файла, как программы". 0