+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضافة عناصر الى TStringList (/showthread.php?tid=6115)
اضافة عناصر الى TStringList - Anew - 24-04-2014
السلام عليكم
اخواني كيف يتم اضافة عناصر الى اStringList
كود :
procedure TForm1.FormCreate(Sender: TObject);
var
_SL : TStringList;
begin
_SL := TStringList.Create;
_SL.Add('0','1','2','3','4','5','6','7','8','9');
end;فكيف اضيف اكثر من عنصر ؟
بارك الله بيكم
اضافة عناصر الى TStringList - SMP3 - 24-04-2014
هذا الكود خاطأ :
PHP كود :
_SL.Add('0','1','2','3','4','5','6','7','8','9');
PHP كود :
_SL.Add('0');
_SL.Add('1');
_SL.Add('2');
....
اضافة عناصر الى TStringList - Anew - 24-04-2014
نعم بارك الله بيك
يبدو انك لم تفهم الامر بصوره صحيحه
المطلوب هوه اضافة اكثر من عنصر في سطر واحد
_SL.Add(qw,qw,qw,qw,qw) يهاضه الصورة
بتوضيح اكثر
اضافة عدة اسماء في Add واحده
بارك الله بيك و بوالديك
اضافة عناصر الى TStringList - SMP3 - 24-04-2014
هذا غير ممكن أخي .. فالدالة لديها برامتر وحيد من نوع 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;
اضافة عناصر الى TStringList - Anew - 24-04-2014
جميل جدا بارك الله بيك
هذا ما كنت ابحث عنه
بارك الله بيك