Mam na formularzu TValueListaEditor i TButton
Po naciśnieciu przycisku lista ma być uzupełniona kluczami i wartościami, jednak program wywala mi 'Access violation...'.
W czym jest problem?
Poniżej prezentuję przykładowy kod:
unit Unit1;
interface
uses
Controls, Classes, Forms, StdCtrls, ValEdit, Grids;
type
TForm1 = class(TForm)
T: TValueListEditor;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 1 to 5 do
begin
(**********************************************
Wszytkie poniższe 4 linie wywołują 'Access violation ...'
Z góry zaznaczam, że trzy ostatnie miały modyfikować
już istniejące wiersze
**********************************************)
// T.InsertRow('Key'+String(I),String(I),True);
// T.Values[T.Keys[I]] := String(I);
//T.Strings.Values[T.Keys[I]] := String(I);
T.Strings.Values[T.Keys[I]] := String(I);
end;
end;
end.