delphi4arab منتديات دلفي للعرب

السلام عليكم

لدي وظيفة تقوم بتصدير Dataset نحو ملف تكون متسلسلة أي التسجل الاول يأخذ السطر الأول في الملف في بعض التسجيلات تنقسم إلى أكثر من سطر مما يعطيني معلومات خاطئة
تعتمد الوظيفة على متغير من نوع String وأظنه محدود

PHP كود :
S := '';  //s :String;
          for I := 0 to ZQuery1.FieldCount - 1 do
          begin
              if S > '' then
                   S := S + '^';
               S := S + ZQuery1.Fields[I].AsString ;
             end;
            List.Add(S);//List:stringlist 

هل هناك متغير أقوى من String و يعطي نتيجة أفضل بحيث كل المقاطع تلصق في سطر واحد بدون إنقسام أم هناك خلل في الؤظيفة؟

السلام عليكم تم حل المشكل:

PHP كود :
while not ZQuery1.Eof do
           begin
            S := '';
       for I := 0 to ZQuery1.FieldCount - 1 do
          begin
       if S > '' then
       S := S + '^';
      S := S + ZQuery1.Fields[I].AsString;
      S := StringReplace(S,#10,'', [rfReplaceAll]);
           end;
            List.Add(S); 

لؤي

لؤي