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

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;

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

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

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, 201312 yr by X-88