[Genry]

Объявляю переменную:

Код:

var
  Memo1: TMemo;

Мне надо сделать так, чтобы компонент был лишь в переменной, но не был на форме. И при этом можно было выполнять действия (например):

Код:

Memo1.lines.loadfromfile('settings.txt');
N15.checked:=strtobool(Memo1.lines[0]);

Помогите, пожалуйста.

[xchrom]

можно той же, но до этого и visible в false поставить, по идее не долэжен появиться...

что то типа:

Код:

  memo1:=TMemo.Create(nil);
  memo1.Visible := false;
  memo1.Parent := self;
  memo1.Lines.LoadFromFile('d:\text.txt');
  Edit1.Text := memo1.Lines[0];
  memo1.Free;

[The Shadow]

А при чем тут Visible? Если он ничейный (Create(nil)) то он вроде и не должен появиться.

[xchrom]

я потестил - ругается на отсутствие парента почему то в рантайм

[The Shadow]

У меня все отлично работает
Вот весь модуль

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Memo1: TMemo;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1:=TMemo.Create(nil);
  Memo1.Visible:=False;
  Memo1.Lines.LoadFromFile('D:\CGI.txt');
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Memo1.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=Memo1.Lines[StrToInt(Edit2.Text)];
end;

end.

[xchrom]

хм... видимо визибл действительно излишний
и так работает

[Genry]

Спасибо!
Но

Код:

Memo1.Parent := self;

Зачем нужно? С этим компонент появляется на форме, а если это не написать, то тоже нормально робит.

[The Shadow]

Не знаю =) Я просто скопировал с форума и не посмотрел, но на форме у меня ничего не появилось.

[zip000]

Genry, я так понимаю вам нужна работа со строками? Так для этого есть класс TStringList, говоря простым языком это невизуальный Memo.

[xchrom]

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

Спасибо!
Но

Код:

Memo1.Parent := self;

Зачем нужно? С этим компонент появляется на форме, а если это не написать, то тоже нормально робит.

да? странно, у мну 5 и 7 делфи ругались на "Control has no parent window!", а когда поставил парент - перестала.