работа с TStrings

← →
~GaMeRd~ (2003-12-28 14:31) [0]

Привет мастера!
Помогите разобраться в чем беда.
Пишу:
procedure getallvd;
var reg: TRegistry;
st: TStrings;
i: integer;
begin
reg := TRegistry.Create;
st := TStrings.Create;
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKeyReadOnly(reg_path{string}) then
begin
reg.GetValueNames(st);
for i := 0 to st.Count-1 do
..................
end;
end;
Этот нигер пишет "Abstract error"

← →
Anatoly Podgoretsky (2003-12-28 14:41) [1]

Этот нигер прав, ты пытаешься создать экземпляр класса с абстрктными методами. Так нельзя используй наследника с перекрытыми методами.

← →
Dred2k (2003-12-28 14:43) [2]

А наследник зело знаменит и полезен - TStringList ...

работа с TStrings Найти похожие ветки