^String i TList Где ошибка

← →
Боян Георгиев (2003-05-15 23:16) [0]

Где ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var List: TList;
ptr: ^string;
begin
New(ptr);
Ptr^ := "Str";
List.Add(Ptr);
end;

← →
Style © (2003-05-15 23:44) [1]

Во первых не создал объект TList

procedure TForm1.Button1Click(Sender: TObject);
var List: TList;
ptr: ^string;

begin
List := TList.Create;
try
New(ptr);
Ptr^ := "Str";
List.Add(Ptr);
finally
List.Destroy;
end;
end;

Но помоему с TList лучше поступить по другому.

type
TListObject= class(TObject)
public:
Data: string;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TList;
obj : TListObject;
i: integer;
begin
List := TList.Create;
try
//Запись
obj := TListObject.Create;
obj.Data := "Text1";
List.Add(@obj);

obj := TListObject.Create;
obj.Data := "Text2";
List.Add(@obj);

//Чтение
Caption := TListObject(List.Items[0]^).Data;
Caption := Caption + TListObject(List.Items[1]^).Data;
finally
List.Free;
end;
end;

← →
Palladin © (2003-05-15 23:54) [2]

а что TStringList отменили уже?

Palladin>
Ну если человек с TList работать хочет...

Боян Георгиев>
А вообще для работы со строками TStringList не повредит :)
Только создать его не забудь.

^String i TList Где ошибка Найти похожие ветки