nesco писал(а):
juk, если моим компонентом StringTable (а я вижу, что применяется именно он), то можно вот так code_1431.txtИ что, стало быстрее что ли
Ай молодец, дал пользователю возможность элемент съэкономить
[size=-2]------ Добавлено в 07:43
Может заодно расскажешь, зачем здесь free_and_nil
procedure ThiStringTable._work_doInitTxtTab;
var List:PStrList;
ind:integer;
begin
List:= NewStrList;
List.Text:= ReadString(_Data,_data_StrLst,');
for ind:= 0 to List.Count - 1 do Add(List.Items[ind]);
free_and_nil(List);
end;Напомню:
procedure Free_And_Nil( var Obj );
var Obj1: PObj;
begin
Obj1 := PObj( Obj );
Pointer( Obj ) := nil;
Obj1.Free;
end;
Поиск
Друзья
Администрация