help me, how to remove the delimiter String Grid with [Delphi]

[X-88]

how I can remove the separator between char 1, with another char?...

if I use spaces, the *. nfo will separate like something is messed up

 

Code :

 

^{procedure TForm1.Export1Click(Sender: TObject);}

^var

   ^{I : Integer;}

   ^{SL : TstringList;}

^begin

   ^{SL := TstringList.Create;}

^{for I := 0 to SG.RowCount - 1 do}

^begin

   ^{SG.Rows.Delimiter := #32; // replace coma with spaces}

   ^{SL.Add(SG.Rows.DelimitedText);}

^end;

^{if not SD.Execute then}

   ^Exit;

   ^{SL.SaveToFile(SD.FileName);}

   ^SL.Free;

^end;

ZN.zip

[kao]

for i := 0 to SG.RowCount - 1 do begin

   finalString := '';

   for j := 0 to SG.Rows[i].Count - 1 do begin

      finalString := finalString + SG.Rows[i][j];

   end;

   SL.Add(finalString);

end;

[X-88]

for i := 0 to SG.RowCount - 1 do begin

   finalString := '';

   for j := 0 to SG.Rows.Count - 1 do begin

      finalString := finalString + SG.Rows[j];

   end;

   SL.Add(finalString);

end;

finalString as what, String grid / TStringList? ... thx b4

[kao]

It's obvious from the usage, isn't it? It's just a simple "string"

[X-88]

ok, I thought it was ..., is appropriate, but the file just does not fit with those of its editor, but no matter I'll try to tackle it

Thk's Kao!

Edited March 11, 2013 by X-88