Question : Outlook 2003 Signature question?

one outlook is hook up with multiple accounts. The problem i am facing is signatures are corrupted. I have tried the following, I copied an made a new signature, but when inserted to it is turned into double spaced. I have looked at all the formatting issue that it could be. I am at a stand still.

Answer : Outlook 2003 Signature question?

The CSV is fine, except it is not comma-separated, it is semicolon separated.
Once you have the CSV file, you can populate the TStringGrid as follows.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
var
  sl: TStringList;
  s: string;
  i: integer;
  iStart: integer;
  iEnd: integer;
  col: integer;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\export_EMSC.csv');
    StringGrid1.RowCount := sl.Count;
    StringGrid1.FixedCols := 0;
    StringGrid1.ColCount := 9;
    for i := 0 to Pred(sl.Count) do
    begin
      s := sl[i] + ';';
      col := 0;
      iStart := 1;
      iEnd := 1;
      while (iEnd <= Length(s)) and (col < 9) do // col<9 to protect against bad file
      begin
        if s[iEnd] = ';' then
        begin
          StringGrid1.Cells[col,i] := Copy(s, iStart, iEnd-iStart);
          iStart := iEnd+1;
          Inc(col);
        end;
        Inc(iEnd);
      end;
    end;
  finally
    sl.Free;
  end;
end;
Random Solutions  
 
programming4us programming4us