Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

^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 отменили уже?


 
Style ©   (2003-05-16 00:27) [3]

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

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



Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-83718
Dremin-s
2003-05-06 13:58
2003.05.26
Где в delphi 7 компоненты serversocket и clientsocket ?


6-83637
Andrey Terekhov
2003-03-29 13:58
2003.05.26
Окон загрузки файла из Инета


1-83570
Ler
2003-05-12 16:34
2003.05.26
Ну Очень простой вопрос !!! (кол-во строк в лейбле )


1-83454
leonidus
2003-05-13 00:38
2003.05.26
Как создать в run-time PopUp и SumItem`ами?


3-83373
Inkotex
2003-05-05 19:34
2003.05.26
Многопользовательность в БД