+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : String تقسم التسجيل لأكثر من واحد (/showthread.php?tid=4245)
String تقسم التسجيل لأكثر من واحد - لؤي - 07-06-2012
السلام عليكم
لدي وظيفة تقوم بتصدير 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 تقسم التسجيل لأكثر من واحد - لؤي - 10-06-2012
السلام عليكم تم حل المشكل:
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);