Использованние TMemo не для визуального компонента

← →
Vyacheslav (2011-11-28 00:14) [0]

Здравствуйте.
Есть необходимость использовать TMemo как переменную для временного хранения буфера работы консольной программы.

Как в Delphi создать экземпляр не визуального обьекта динамически?

Самое простое, что приходит на ум... Обьявляю в глобальных переменных
var tM: TMemo;
...
затем
tM.Lines.Add("Hello");

Вылетает ошибка
Project Project1.exe raised exception class EAccessViolation with message "Access Violation at address 004628AE" in module "Project1.exe". Read of address 00002020".Process stopped.
Use Step or Run to continue.

Как я понял, надо что-то типа
var tM := new TMemo или create ... ;

← →
Jeer © (2011-11-28 00:15) [1]

> Vyacheslav (28.11.11 00:14)
>
> Здравствуйте.

Госпидя.. до свидания. :)
Мемо-то зачем в консольной программе ?

← →
Vyacheslav (2011-11-28 00:27) [2]

Программа не консольная.

Некая процедура отдаёт данные параметру с типом TMemo
Визуальн он не нужен в релизе.

← →
Amoeba_ (2011-11-28 00:40) [3]

Нафига в данном случае TMemo? Чем TStringList не устроил?

← →
Vyacheslav (2011-11-28 00:53) [4]

Вобщем, всё верно, я не тот тип исаользую...
Процедура возвращает TStrings. Значит будем пробовать его.

Как заставить работать подобный код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; tS: TStrings; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin tS.Create; tS.Clear; tS.Append("Hello!"); Form1.Caption := tS.Strings[0]; tS.Destroy; end; end.

← →
Jeer © (2011-11-28 01:01) [5]

> Как заставить работать подобный код:

Начни с самого начала - четкая постановка твоей задачи.
Ответ четкий - получишь, факт.

← →
Vyacheslav (2011-11-28 01:03) [6]

var
tS: TStrings;

Как присвоить tS хоть что угодно?!

← →
Германн © (2011-11-28 01:04) [7]

> Процедура возвращает TStrings. Значит будем пробовать его.

Ну когда начнём читать учебники? Тип TStrings абстрактный!
Хотя не читая учебники и/или хелп этого не понять.
Но в [3] тебе уже почти прямо сказали какой класс нужно использовать.

← →
Jeer © (2011-11-28 01:05) [8]

ts := TStringList.Create;
...
ts.Add("Hello World !");
..

Caption := ts[0];

..
ts.Free;

// Зачем такие изыски, вот скажи ?

← →
Германн © (2011-11-28 01:32) [9]

> Jeer © (28.11.11 01:05) [8]

И что это ты сего дни такой добрый, тёзка? Даже про свой ник забыл.
:)

← →
Плохиш © (2011-11-28 01:45) [10]

> Ну когда начнём читать учебники?

Э, дарагой, чë, не знаш, шо они для лохов писаны?

← →
Плохиш © (2011-11-28 01:46) [11]

> Vyacheslav (28.11.11 01:03) [6]

Зачем оно тебе, это программирование?

public
tS: TStrings;
end;

var
Form1: TForm1;

ибо не хрен.

> Использованние TMemo не для визуального компонента [D7,
> 2003]
var tM: TMemo;
...
затем
tM.Lines.Add("Hello");

А ошибка наверно в трех точках.

Какая-то мода пошла, форум использовать в качестве учебника..

то ли еще будет

Нас не запугаешь.

Использованние TMemo не для визуального компонента Найти похожие ветки