VC函数转delphi函数的定义问题(50分)

原VC函数为int __stdcall TTy(char* WXY,HWND wndProgress);
如何转换为delphi函数的定义？

哪位大侠出手一下，如果ok加分还是有的商量的。

结束此贴吧

这个帖子好几天了，算了，谁进来留言就给谁分。

我一般都是用Listview作显示用，修改时都是在Edit中进行
procedure TForm1.ListView1Click(Sender: TObject);
begin
if ListView1.Selected <> nil then
begin
Edit1.Text := ListView1.Selected.Caption;
Edit2.Text := ListView1.Selected.SubItems[0];
Edit3.Text := ListView1.Selected.SubItems[1];
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//若你要一次修改多个数据，就将ListView1.Selected改成ListView1.Items[Index]即可，是那一行，看你怎么取Index值
if ListView1.Selected <> nil then
begin
ListView1.Selected.Caption := Edit1.Text;
ListView1.Selected.SubItems[0] := Edit2.Text;
ListView1.Selected.SubItems[1] := Edit3.Text;
end;
end;

初始化:
procedure TForm1.FormCreate(Sender: TObject);
var CurItem:TListItem;
begin
CurItem:=ListView1.Items.Add;
CurItem.Caption:='A';
CurItem.SubItems.Add('1');
CurItem.SubItems.Add('2');
CurItem:=ListView1.Items.Add;
CurItem.Caption:='B';
CurItem.SubItems.Add('2');
CurItem.SubItems.Add('3');
CurItem:=ListView1.Items.Add;
CurItem.Caption:='C';
CurItem.SubItems.Add('100');
CurItem.SubItems.Add('200');
end;
第2行的数据修改:
procedure TForm1.Button1Click(Sender: TObject);
var CurItem:TListItem;
begin
CurItem:=ListView1.Items[1];
CurItem.Caption:='ABC';
CurItem.SubItems[0]:='123';
CurItem.SubItems[1]:='321';
end;

多人接受答案了。