Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 02.05.2014, 14:18   #1
Viburn
 
Регистрация: 05.04.2014
Сообщений: 8
Репутация: 10
По умолчанию Копирование текста из мемо в запись

Мне надо скопировать текст из мемо в запись и потом снова из записи в мемо. Компилируется но выкидывает access violation при копировании в запись.

Код:
type TElement = record
    info:Tstrings;

var Element : array[1..120] of TElement;

procedure TForm1.BSaveClick(Sender: TObject);
var rec:integer;
begin
Rec:=strtoint(Numrec.Text);
Element[rec].info.assign(memo1.Lines);
end;

procedure TForm1.NumrecKeyPress(Sender: TObject; var Key: Char);
var rec : integer;
begin
 if Key = #13 then
  begin
  rec:= strtoint(NumRec.Text);
    NumRec.Text:=inttostr(rec); 
    Memo1.Text:=Element[rec].info.Text;
  end;
Viburn вне форума   Ответить с цитированием
Старый 02.05.2014, 14:24   #2
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,913
Репутация: 6688
По умолчанию

Прежде чем в срингс чего-то загонять его создать нужно
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 02.05.2014, 15:00   #3
Viburn
 
Регистрация: 05.04.2014
Сообщений: 8
Репутация: 10
По умолчанию

Добавил

Element[rec].info:=Tstrings.Create;

Выкидывает абстракт эррор.
Viburn вне форума   Ответить с цитированием
Старый 02.05.2014, 15:04   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,913
Репутация: 6688
По умолчанию

Цитата:
Выкидывает абстракт эррор.
И правильно делает. Нечего объект из абстрактного класса создавать
Код:
Element[rec].info:=TStringList.Create;
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 02.05.2014, 15:21   #5
Viburn
 
Регистрация: 05.04.2014
Сообщений: 8
Репутация: 10
По умолчанию

Вроде копирует но обратно не вставляет

Element[n].info:=TStringList.Create;
Memo1.Text:=Element[n].info.Text;

Последний раз редактировалось Viburn; 02.05.2014 в 15:29.
Viburn вне форума   Ответить с цитированием
Старый 02.05.2014, 15:53   #6
northener
ПШП
Профессионал
 
Регистрация: 15.07.2013
Сообщений: 1,564
Репутация: 508
По умолчанию

Цитата:
Сообщение от Viburn Посмотреть сообщение
Вроде копирует но обратно не вставляет

Element[n].info:=TStringList.Create;
Memo1.Text:=Element[n].info.Text;
Так откуда же в свежесозданном StringList'е что-то возьмется?
northener вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование в мемо glebast Помощь студентам 11 07.09.2012 20:55
сохранение текста из мемо BESS Компоненты Delphi 14 05.03.2012 15:26
копирование текста из мемо grafgrial Общие вопросы Delphi 9 22.01.2011 18:04
Копирование строчки в мемо Lauri Общие вопросы Delphi 5 05.04.2010 17:34
Выделение текста В мемо BESS Компоненты Delphi 15 30.07.2008 17:07


03:56.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.