Не работает сохранение из Memo

[Новичок!]

Есть код

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
memo1.lines.SaveToFile(inttostr(a)+'t.zmt');
memo2.Lines[0]:=inttostr(form2.left);
memo2.Lines[1]:=inttostr(form2.Top);
memo2.Lines[2]:=inttostr(form2.tag);
memo2.Lines.SaveToFile(inttostr(a)+'.zmt');
inc(a);
end;

Первый файл сохраняется нормально, сколько бы не было строк. А во второй файл сохраняются только первые две строки, третья не сохраняется. Почему?

[Vanta11a]

Через Add() пробовали добавлять строки в memo2?

[Serge_Bliznykov]

Кто? Нет, Вы скажите, КТО Вас учил обращаться к элементам динамического массива без проверки того, что там есть элементы, индексы которых Вы указываете.

Уж, хотя бы так поступите (хотя это тоже быдлокод, но хоть работать будет)!

memo1.lines.SaveToFile(inttostr(a)+'t.zmt');
while memo2.Lines.Count<3 do memo2.Lines.Append('пустая строка');
memo2.Lines[0]:=inttostr(form2.left);
memo2.Lines[1]:=inttostr(form2.Top);
memo2.Lines[2]:=inttostr(form2.tag);
memo2.Lines.SaveToFile(inttostr(a)+'.zmt');
inc(a);

[Новичок!]

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

Кто? Нет, Вы скажите, КТО Вас учил обращаться к элементам динамического массива без проверки того, что там есть элементы, индексы которых Вы указываете.

В смысле? Я ведь как раз в строки и вносил данные. Зачем проверять то что в них что-то есть если это в них точно есть?

[Новичок!]

Vanta11a, спасибо. Так вроде работает

[Serge_Bliznykov]

В смысле? Я ведь как раз в строки и вносил данные. Зачем проверять то что в них что-то есть если это в них точно есть?

мда.. налицо явное недопонимание...

попытаюсь вкратце, "на пальцах", объяснить, в чём Вы заблуждаетесь.. Хотя, конечно, лучше бы Вам книжки по основам Delphi проштудировать..

смотрите. есть объект Memo2.Lines (тип это TStrings: TStrings is an abstract base class for objects that represent a list of strings. - т.е. это класс, представляющий СПИСОК строк).
Этот список может НЕ СОДЕРЖАТЬ ни одной строки. Может содержать одну строчку, может - две и т.д...
Если список НЕ СОДЕРЖИТ ни одной строчки, то обращение к несуществующей строке не даст никакого результата! (почему оно не вызовет ошибку - это можно посмотреть в исходниках. Имхо, это было бы логичнее. Но авторы, написавшие работу с TStrings (TStringList) посчитали, что так программисту будет проще и легче.
Поэтому, когда у Вас нет в списке ни одной строки, а Вы пишете Lines[0] := xxxxx
то никакой ошибки не будет. НО И СТРОКА в список НЕ ДОБАВИТСЯ!
Для добавления строки в список существуют методы
.Lines.Add(<строчка>) и
.Lines.Append(<строчка>)

(чем эти методы отличаются и какие ещё есть методы Вы легко можете посмотреть в штатном хелп файле к Delphi).

Vanta11a, спасибо. Так вроде работает

а что, мой вариант из #3 не сработал?..

Очень подозреваю, что Ваш код должен бы выглядеть так:

  memo1.lines.SaveToFile(inttostr(a)+'t.zmt');
  memo2.Lines.Clear; {очистили содержимое списка строк}
  memo2.Lines.Append(inttostr(form2.left));
  memo2.Lines.Append(inttostr(form2.Top));
  memo2.Lines.Append(inttostr(form2.tag));
  memo2.Lines.SaveToFile(inttostr(a)+'.zmt');
...

ну и последнее. если Вы используете memo2 исключительно для того, чтобы сохранить строчки в файл, то это Вы ЗРЯ. Гораздо удобнее, проще, эффективнее, быстрее и надёжнее использовать для этого простой TStringList (его можно создавать/удалять прямо в процедуре на кнопке (предпочтительнее), а можно и создать один раз при создании формы и удалить при уничтожении формы...

выглядеть это будет так:

procedure TForm2.BitBtn1Click(Sender: TObject);
var TS : TStringList;
begin
  memo1.lines.SaveToFile(inttostr(a)+'t.zmt');
  TS := TStringList.Create;
  try
    TS.Append(inttostr(form2.left));
    TS.Append(inttostr(form2.Top));
    TS.Append(inttostr(form2.tag));
    TS.SaveToFile(inttostr(a)+'.zmt');
  finally
    TS.Free;
  end;
  inc(a);
end;

[Новичок!]

мда.. налицо явное недопонимание...

попытаюсь вкратце, "на пальцах", объяснить, в чём Вы заблуждаетесь.. Хотя, конечно, лучше бы Вам книжки по основам Delphi проштудировать..

смотрите. есть объект Memo2.Lines (тип это TStrings: TStrings is an abstract base class for objects that represent a list of strings. - т.е. это класс, представляющий СПИСОК строк).
Этот список может НЕ СОДЕРЖАТЬ ни одной строки. Может содержать одну строчку, может - две и т.д...

Да да да. Я уже понял что ляпнул хрень
Этот код мне понравился

procedure TForm2.BitBtn1Click(Sender: TObject);
var TS : TStringList;
begin
label1.caption:=memo1.text;
memo1.visible:=false;
bitbtn1.Visible:=false;
  memo1.lines.SaveToFile(inttostr(unit1.a)+'t.zmt');
  TS := TStringList.Create;
  try    
    TS.Append(inttostr(form2.left));
    TS.Append(inttostr(form2.Top));
    TS.Append(inttostr(form2.tag));
    TS.SaveToFile(inttostr(unit1.a)+'.zmt');
    label1.Caption:=ts.text;
  finally
    TS.Free;
  end;
end;

всё супер работает