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

[gbyahoo]

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;

[gbyahoo]

在VC有跟TStringList类差不多的吗？

或有什么类可以将CodeMsg串马上保存为TXT文件也行

[gbyahoo]

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

[mahatma_cn]

CStringList

[mahatma_cn]

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