这两张图应该都是什么意思 求大神！！！
本人不通delphi 中间的片段代码需要翻译到自己写的程序中 求教
begin
if (not OpenDialog1.Execute) then exit;
if (treeview1.Items.Count>0) then begin
ListView1.Items.Clear;
freenode(treeview1.Items[0]);
node:=treeview1.Items[0];
node.free;
treeview1.Items.Clear;
imagefile.close;
end;
if not imagefile.readimagefile(ProgressBar1, OpenDialog1.FileName, treeview1) then exit;
if (imagefile.instream.tarform<>nil) then begin
input_imagefile.Text:=OpenDialog1.FileName+*\*+imagefile.instream.tarform.tarform.TreeView1.Selected.Text;
imagefile.instream.tarform.tarform.Close;
imagefile.instream.tarform.tarform.free;
end
else
input_imagefile.Text:=OpenDialog1.FileName;
button_saveext4.Enabled:=true;
treeview1.Selected:=treeview1.Items[0];
node:=treeview1.Items[0];
node.Expand(false);
node.Expanded:=true;
end;
private
{ Private declarations }
imagefile : TImageFile;
oggpl : TOggPlayer;
mp3pl : TcmxMP3;
playstart : string;
playstop : string;
SaveimageDialogTitle : string;
savefileasdialogtitle : string;
savefiletodialogtitle : string;
stopextract : boolean;
procedure freenode(anode : TTreeNode);
procedure ogg_playend(Sender: Tobject);
procedure mp3_playend(Sender: Tobject);
procedure savefile(dirobj: TExt4_DirObj; dstdir: string; filename: string);
procedure savedir(dirlist: TStringList; dstdir: string);
procedure countfiles(dirlist: TStringList);
public
{ Public declarations }
end;

这种问题，我都不用看内容，答案有两个
1 看书
2 去淘宝。

你按照你的思路去翻译就可以了。都差不多。

私人
{私人声明}
imagefile:TImageFile;
oggpl:TOggPlayer;
mp3pl:TcmxMP3;
playstart:字符串;
playstop:字符串;
SaveimageDialogTitle:字符串;
savefileasdialogtitle:字符串;
savefiletodialogtitle:字符串;
stopextract:布尔;
过程自由节点(阳极:TTreeNode);
过程ogg_playend(发送方:Tobject);
过程mp3_playend(发送方:Tobject);
过程savefile(dirobj:TExt4_DirObj;dstdir:字符串;文件名:字符串);
过程savedir(目录:TStringList;dstdir:字符串);
过程countfiles(目录:TStringList);
公共
{公开声明}
结束;

开始
如果（不opendialog1。执行）然后退出；
如果（treeview1。项目。计数＞0）然后开始
listview1.items.clear；
freenode（treeview1。项目[ 0 ]）；
节点：= treeview1项目[ 0 ]；
node.free；
treeview1.items.clear；
imagefile.close；
结束；
如果不图像文件。readimagefile（progressbar1，opendialog1.filename，treeview1）然后退出；
如果（图像文件。河道。tarform <>无）然后开始
input_imagefile。正文：= opendialog1。文件名+ * / * +imagefile.instream.tarform.tarform.treeview1.selected.text；
imagefile.instream.tarform.tarform.close；
imagefile.instream.tarform.tarform.free；
结束
其他的
input_imagefile。正文：= opendialog1.filename；
button_saveext4启用：=真；
treeview1。选择：= treeview1项目[ 0 ]；
节点：= treeview1项目[ 0 ]；
节点扩展（假）；
节点扩展：=真；
结束；

百度翻译》？