Access violation at address in module "Project1.exe"...

[NewLamer&Programer]

выскакивает ошибка

procedure TForm1.Button1Click(Sender: TObject);
Var
Memo1: TMemo;
i: integer;
begin
i:= 1;
Memo1:= TMemo.Create(Memo1);
with Form1.StringGrid1 do
while (Cells[1,i]<>'') or (Cells[2,i]<>'') or (Cells[3,i]<>'') do
  begin
  Memo1.Lines.Add('a['+IntToStr(i)+'] = '+Cells[1,i]);
  Memo1.Lines.Add('b['+IntToStr(i)+'] = '+Cells[2,i]);
  Memo1.Lines.Add('c['+IntToStr(i)+'] = '+Cells[3,i]);
  Memo1.Lines.Add(#10);
  Memo1.Lines.SaveToFile('C:\Windows\system32\1.txt');
  Memo1.Lines.Clear;
  i:= i+1;
  end;
Memo1.Free;
end;

[Кольша]

Memo1:= TMemo.Create(Memo1); что это??Вы курили перед написанием этого?
исправьте на form1 или nil

[NewLamer&Programer]

Сообщение от Кольша

Memo1:= TMemo.Create(Memo1); что это??Вы курили перед написанием этого?
исправьте на form1 или nil

перед написанием курил ошибку "Control has no parent window", изначально там и стояло nil, и выдавало ошибку, исправил на Memo1, та ошибка ушла появилась текущая...

[Аватар]

TMemo здесь вообще нет необходимости использовать. Есть TStringList для подобных целей

[NewLamer&Programer]

Сообщение от Аватар

TMemo здесь вообще нет необходимости использовать. Есть TStringList для подобных целей

а не все ли равно? с Memo я работал, а со StringList нет... практической разницы никакой...

[Кольша]

Аватар, кстати да можно

procedure TForm1.Button1Click(Sender: TObject);
Var
Memo1: TStringList;
i: integer;
begin
i:= 1;
Memo1:= TStringList.create;
with Form1.StringGrid1 do
while (Cells[1,i]<>'') or (Cells[2,i]<>'') or (Cells[3,i]<>'') do
begin
Memo1.Add('a['+IntToStr(i)+'] = '+Cells[1,i]);
Memo1.Add('b['+IntToStr(i)+'] = '+Cells[2,i]);
Memo1.Add('c['+IntToStr(i)+'] = '+Cells[3,i]);
Memo1.Add(#10);
Memo1.SaveToFile('C:\Windows\ system32\1.txt');
Memo1.Clear;
i:= i+1;
end;
Memo1.Free;
end;

[NewLamer&Programer]

Сообщение от Аватар

TMemo здесь вообще нет необходимости использовать. Есть TStringList для подобных целей
Св-во Parent не определено у Memo1

я это уже понял =) но если пишу Memo1.Parent:= (self); он вообще говорит undeclarid identifier "self"

[Аватар]

а не все ли равно?

Если говно-код устраивает, то все равно

[NewLamer&Programer]

Сообщение от Аватар

Если говно-код устраивает, то все равно

1. обоснуй
2. чем отличаются stringlist и memo? вообще что за stringlist?

[Кольша]

2. чем отличаются stringlist и memo? вообще что за stringlist?

Memo визуальный компонент stringlist дословно список строк...