PDA

View Full Version : کار با آرایه ها



پوریا_م
پنج شنبه 19 آبان 1390, 12:43 عصر
با سلام
آرایه ای از جنس رشته دارم که طول اون محدود هستش. حالا اگر بخواهیم در چند مرحله تعداد زیادی رشته رو در خانه های آرایه درج کنیم چکار باید کرد ؟
بطور مثال توسط AdoQuery تعداد 1350 رشته(رکورد) رو واکشی کردم.برای درج این تعداد رشته در آرایه ای بهمین طول مشکلی ندارم ولی آرایه ای که دارم بدلایلی نباید طولش بیشتر از 100 بشه.حالا سوال من اینه که چطور در ارایه 100 تا رکورد درج کنم بعد عملیات روشون انجام بشه، و آرایه خالی بشه و مجددا 100 تای بعدی و الی آخر تا مقدار select شده در adoQuery تمام بشه ؟؟
با تشکر

سعید صابری
پنج شنبه 19 آبان 1390, 13:32 عصر
من نمیدونم چه عملیاتی میخوای انجام بدی و چرا میخوای از آرایه استفاده کنی؟
ولی دلفی گزینه زیادی برای جایگزینی آرایه با امکانات مناسب داره از جمله کلاس Tstringlist.

اگه واضح تر بگین شاید بشه بهتر بهتون کمک کرد.

این کد شاید بدردتون بخوره


var
a:array[1..100]of string;
i:Integer;
begin
ADOQuery1.First;
i:=1;
while not ADOQuery1.Eof do
begin
a[i]:=ADOQuery1.FieldByName('field').Value;
if i >= 100 then
begin
////progress
i:=0;
end;
ADOQuery1.Next;
i:=i+1;
end;

پوریا_م
پنج شنبه 19 آبان 1390, 13:51 عصر
مرسی
عملیات ارسال پیامک انبوه هست، شرکت خدمات دهنده گفته که تابع ارسال پیامکشون آرایه حداکثر 100 تائی رو جواب میده.با این اوصاف کد بالا جوابگو هست ؟

سعید صابری
پنج شنبه 19 آبان 1390, 13:58 عصر
فکر کنم جواب بده. ولی چون از حلقه استفاده شده به نظر خودم زیاد جالب نیست برای این کار.
بگرد شاید روش بهتری پیدا کردی.