Mega Code Archive
Devx - kümeden[array] kayıt silme
<![CDATA[
********************************************************
********************************************************
*** 'ARKADAŞLAR LÜTFEN KODBANK"TAN YARDIM İSTEMEYİN' ***
************* 'FORUMLARDAN YARDIM İSTEYİN' *************
********************************************************
********************************************************
var
myArray: TStringArray;
...//delete fifth element
DeleteArrayItem(myArray, 5) ;
~~~~~~~~~~~~~~~~~~~~~~~~~
type
TStringArray = array of string;
procedure DeleteArrayItem(var X: TStringArray; const Index: Integer) ;
begin
if Index > High(X) then Exit;
if Index < Low(X) then Exit;
if Index = High(X) then
begin
SetLength(X, Length(X) - 1) ;
Exit;
end;
Finalize(X[Index]) ;
System.Move(X[Index +1], X[Index],(Length(X) - Index -1) * SizeOf(string) + 1) ;
SetLength(X, Length(X) - 1) ;
end;
]]>