StringGrid Сохранение в файл в виде таблицы.

[=master=]

SaVeTableToCSV тут не удалять надо ;, а экранировать, причем всё.

[denisbrain]

Сообщение от =master=

SaVeTableToCSV тут не удалять надо ;, а экранировать, причем всё.

обновил пост

    

  function ecran(s:string):string;
      var s2:string;i:integer;
      begin
      s2:='';

      if pos(';',s)>0 then begin
        for I:=1 to length(s) do if (s[i]<>';') or (ord(s[i])<32) then s2:=s2+s[i] else s2:=s2+'#'+inttostr(ord(s[I]));
        end else s2:=s; result:=s2;
      end;