Присваивание тексту Memo значения из TStringList

[Alex Cones]

В общем тренируюсь с TStringList:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Y: Integer;
begin
 S:=TStringList.Create;
 For Y:=0 to 8399 do
  S.Add('Line number '+IntToStr(Y));
 S.SaveToFile('StringsText.text');
 S.Free;
 Windows.Beep(700,700);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 Y:Integer;
begin
 S.LoadFromFile('StringsText.text');
 Windows.Beep(600,600);
 For Y:=0 to 8399 do
  Memo1.Lines.Add(S.Strings[Y]);
 S.Free;
 Windows.Beep(700,700);
end;

Ошибка Access Violation

Пробовал

Memo1.Text:=S.Text;

Тот же эффект. Как В Memo присвоить текст из TStringsList?


P.S. Var S:TStringList;

[psycho-coder]

Сообщение от Alex Cones

В общем тренируюсь с TStringList:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Y: Integer;
begin
 S:=TStringList.Create;
 For Y:=0 to 8399 do
  S.Add('Line number '+IntToStr(Y));
 S.SaveToFile('StringsText.text');
 S.Free;
 Windows.Beep(700,700);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 Y:Integer;
begin
 S.LoadFromFile('StringsText.text');
 Windows.Beep(600,600);
  For Y:=0 to 8399 do
  Memo1.Lines.Add(S.Strings[Y]);
 S.Free;
 Windows.Beep(700,700);
end;

Убейте

И можно будет

Memo1.Text := S.Text;

[Utkin]

А Вы не пробовали сравнить оба метода? В первом есть строка S:=TStringList.Create; и есть строка S.Free;

Второй метод начинается с S.LoadFromFile('StringsText.text'); и s даже в секции var не объявлено . Мне кажется эта строка уже должна вызывать сообщение об ошибке .

ЗЫ. Психокодер опередил...

[Wicort]

лично у меня так работает:

for i:=1 to s.Count-1 do
begin
   memo1.Lines.Add(s.Strings[i]);
end;

З.Ы. блин... долго же я писал)))

[psycho-coder]

2Wicort
Можно проще

Memo1.Text := S.Text;

[Alex Cones]

Блин! Как всегда Create забыл! Это у меня уже хроническое.

P.S. S - глобалка.
P.S.S.Спасибо!

[psycho-coder]

Сообщение от Alex Cones

Блин! Как всегда Create забыл! Это у меня уже хроническое.

P.S. S - глобалка.
P.S.S.Спасибо!

Вам не обязательно создавать Create заново, просто удалите S.Free из Button1Click
И не забудьте S.Free при закрытии программы

[evg_m]

еще проще
Memo1.Lines.LoadFromFile( );
Memo1.Lines.SaveTofile( );

[Neeter]

Можно так:

Memo1.Lines.Assign(s);  //Где s - TStringList

[Alex Cones]

Neeter, а в чем разница между

Memo1.Lines.Assign(s);

и

Memo1.Text:=S.Text

???