Kod: Tümünü seç
Type TKordinat=record x,y,z:double;end;
var Fkor,FList:TStringList;
//1.koordinat
procedure TStiffness.AddKor(name:string;t:TKordinat);
begin
FKor.Add(Format('%s=%g;%g;%g', [name,t.x,t.y,t.z]));
end;
function TStiffness.GetKor(name:string;var t:TKordinat):Boolean;
begin
FList.DelimitedText:=FKor.Values[name];
result:=FList.DelimitedText<>'';if not result then exit;
t.x:=StrToFloat(FList.Strings[0]);
t.y:=StrToFloat(FList.Strings[1]);
t.z:=StrToFloat(FList.Strings[2]);
end;
Bir bileşen yazmaya çalışıyorum. Kodlarımın küçük bir örneğini yukarıda gösterdim.
TStringList ile ekleme ve arama işlemleri yaptırıyorum. Ancak kayıt sayısı fazlalaştıkça arama ve ekleme işlemleri çok yavaşlamaktadır.
TStringList yerine hangi component ile ekleme ve arama işlemlerini hızlıca yapabilirim.
Veya yukarıdaki kodları (arama) işlemini hızlandırma imkanı nedir.
Değerli görüş ve önerilerinizi bekliyorum.
Not:Hala Delphi 7 kullanıyorum.