Вопрос, связанный со StringList. Пожалуйста, ответьте кто-нибудь!!!
Помогите, пожалуйста, как изменить исходный код
procedure TForm1.Button1Click(Sender TObject);
var
stringlist TStringList;
begin
stringlist=TStringList.Create;
stringlist.Add('Любая строка');
end;
чтобы 'Любая строка' добавлялась в StringList
каждый раз при нажатии кнопки, а предыдущая строка сохранялась.
[ Это Сообщение было отредактировано mike в 2002-03-07 1110 ]
procedure TForm1.Button1Click(Sender TObject);
var
stringlist TStringList;
begin
stringlist=TStringList.Create;
stringlist.Add('Любая строка');
end;
чтобы 'Любая строка' добавлялась в StringList
каждый раз при нажатии кнопки, а предыдущая строка сохранялась.
[ Это Сообщение было отредактировано mike в 2002-03-07 1110 ]
Нужно чтобы переменная была определена либо как глобальная(до слова implementation), либо как переменную-член класс TForm1:
...
private:
stringList:TStringList;
...
И создавать список нужно создавать не при каждом нажатии на кнопку, а один раз, например, в OnCreate формы.
...
private:
stringList:TStringList;
...
И создавать список нужно создавать не при каждом нажатии на кнопку, а один раз, например, в OnCreate формы.
Аноним
Цитата:
On 2002-02-27 1534, vicky wrote
Помогите, пожалуйста, как изменить исходный код
procedure TForm1.Button1Click(Sender TObject);
var
stringlist TStringList;
begin
stringlist=TStringList.Create;
stringlist.Add('Любая строка');
end;
чтобы 'Любая строка' добавлялась в StringList
каждый раз при нажатии кнопки, а предыдущая строка сохранялась.
[ Это Сообщение было отредактировано mike в 2002-03-07 1112 ]
Если необходимо, чтобы StringList создавался
только при первом нажатии на Button1, а при последующих нажатиях лишь добавлял строки к существующим, то можно ввести глобальную переменную - флажок (например b_lst: Boolean)
которая при создании формы устанавливается
b_Lst:= False, то есть StringList ещё не создан, далее:
procedure Form1.Button1Click (Sender:TObject);
var
stringlist: TStringList;
begin
If b_Lst=False then
begin
stringlist:=TStringList.Create;
b_Lst:=True;
end;
stringlist.Add('Любая строка');
end;
При необходимости создавать StringList, каждый раз при нажатии кнопки Button1 заново
с условием сохранения старой информации при
уничтожении старого StringList-а можно предложить сохранять при этом информацию в динамическом одномерном массиве-буфере из которого можно загружать сохраняемые данные во вновь соэдаваемый StringList. Это один из
возможных вариантов.
только при первом нажатии на Button1, а при последующих нажатиях лишь добавлял строки к существующим, то можно ввести глобальную переменную - флажок (например b_lst: Boolean)
которая при создании формы устанавливается
b_Lst:= False, то есть StringList ещё не создан, далее:
procedure Form1.Button1Click (Sender:TObject);
var
stringlist: TStringList;
begin
If b_Lst=False then
begin
stringlist:=TStringList.Create;
b_Lst:=True;
end;
stringlist.Add('Любая строка');
end;
При необходимости создавать StringList, каждый раз при нажатии кнопки Button1 заново
с условием сохранения старой информации при
уничтожении старого StringList-а можно предложить сохранять при этом информацию в динамическом одномерном массиве-буфере из которого можно загружать сохраняемые данные во вновь соэдаваемый StringList. Это один из
возможных вариантов.