急！这个函数是DELPHI语法，高手请把这个函数转VC的DLL函数。急丫！

Question

function MakeCode(CodeMsg, SaveTo: pChar): pChar;stdCall;
var Data: TStringList;
    TemppChar: pChar;
begin
if CodeMsg = nil then
  begin
   exit;
   Result := '1001';
  end
 else
  begin
   try
    Data := TStringList.Create();
    Data.Text := CodeMsg;
    Data.SaveToFile('Data.txt');
    Data.Free;
    DeleteFile('Data.txt');
    Result := pChar('ok'); 
   except
    Result := '1002';
    DeleteFile('Data.txt');
   end;
  end;

Answer 1

在VC有跟TStringList类差不多的吗？或有什么类可以将CodeMsg串马上保存为TXT文件也行

Answer 2

至于“马上保存为TXT文件” ：没有，要自己写代码

Answer 3

大哥帮帮忙！怎么写保存。我对CStringList不熟。