اضافة عناصر الى TStringList

[SMP3]

هذا غير ممكن أخي .. فالدالة لديها برامتر وحيد من نوع String :

PHP كود :

function Add(const S: string): Integer; override; 


+ دلفي لا تدعم نعدد برامترات مجهولة .

كحل بديل يمكنك استخدام المصفوفات مع استخدام ال class helper :
ال class helper مدعوم فقط في نسخ دلفي 2007 فما فوق .

PHP كود :

type
  TStringListHlp = class helper for TStringList
    function Add(const Args: array of const): Integer; overload;
  end;
//-------------------------------------------------------------------------
{ TStringListHlp }

function TStringListHlp.Add(const Args: array of const): Integer;
var
  i: Integer;
  s: string;
begin
  for i := Low(Args) to High(Args) do
  begin
    case Args[i].VType of
      vtChar: s := Args[i].VChar;
      vtWideChar: s := Args[i].VWideChar;
      vtAnsiString: s := String(Args[i].VAnsiString);
      vtString: s := String(Args[i].VString);
      vtWideString: s := String(Args[i].VWideString);
      vtUnicodeString: s := String(Args[i].VUnicodeString);
    else Exit;
    end;
    Add(s);
  end;
end; 


الآن يمكنك اضافة العناصر بهذا الشكل :

PHP كود :

var
  s: TStringList;
begin
  s := TStringList.Create;
  s.Add(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']);
  Caption := s.Strings[1]; // 1 .
end;