Архив форумов ЦИТФорума

[Rizvan]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i=0;
TStringList *List = new TStringList;
AnsiString S1=Edit1->Text;
AnsiString S11=Edit2->Text;
AnsiString S2="d:\\doc\\txt\\1";
List->Add(S11);
List->Insert(i, S1);
i=i+1;
List->SaveToFile(S2);
RenameFile(S2, Edit2->Text);

}

Как при нажатии Click значерие i увеличивалась на 1 и при SaveToFile не удаляла существующую запись.

[xAL]

и?

[CAHbI4]

Тут в коде есть небольшой недочет. При нажатии Button1 объявляется переменная i, потом i обнуляется. Чтобы значение i не убегало надо ее обьявить за пределами функции. Вот так:
// Code START

int i=0; // во здесь надо обьявлять i

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *List = new TStringList;
AnsiString S1=Edit1->Text;
AnsiString S11=Edit2->Text;
AnsiString S2="d:\\doc\\txt\\1";
List->Add(S11);
List->Insert(i, S1);
i=i+1;
List->SaveToFile(S2);
RenameFile(S2, Edit2->Text);
}
// Code END

Теперь значение i никуда не денется

[Rizvan]

Спосибо.
Но уменя при 3-м клике выдает ошибку "List index out of bounds(2)".
И удоляет предыдущую строку.
Как избежать этого?