DELPHI7下SUPPEROBJECT遍历子对象的name和value var ite: TSuperAvlIterator; while ite.MoveNext do begin if ite.Current.Name = 'table' then begin tablename := ite.Current.Value.AsString; // 取表名 end else begin if lname = '' then lname := ite.Current.Name else lna…

可能 delphi7 下稳定的最后一版本 GDIPLUS 万一的 blog 说"终于, Delphi XE2 携带 GDI+ 库了 使用了较早的 http://www.progdigy.com"但这个网址已经下不了了,而 http://www.bilsen.com/gdiplus 的又要 delphi2009 以后版本,另外 IGDIPlus 又有比较严重的 bug,得了放一个当前用的上来吧,不知道有没有 bug grp.DrawPath(pen,path); //这里有个 gdi+…

Delphi7下实现HTTP的Post操作 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, Buttons, OverbyteIcsWndControl, Overbyt…

Linux下 C++遍历目录下所有文件 rename(image_path.c_str(), image_path_new.c_str()); remove(image_path_move.c_str()); 上述批量操作的代码是在linux下的参数设置: rename的参数,image_path为原文件的路径+文件名,image_path_new为文件重命名的路径+文件名.两者在windows下均为string类型即可,但是在linux下需要转换成char型. remove的参数,image_…

Windows下,在VS中开发,C++遍历文件夹下文件. 在Windows下,遍历文件所用到的函数和结构体,需要在程序中包含头文件#include <io.h>,在VS中,头文件io.h实际上是包含了另一个头文件corecrt_io.h的,所以需要用到的函数和结构体也都是包含在corecrt_io.h这个头文件中的. 首先是遍历文件的时候用于存储文件信息的结构体_finddata_t,_finddata_t在头文件中是一个宏定义: #define _finddata_t _finddata64…

相关资料:http://www.cnblogs.com/del/archive/2009/10/23/1588690.html Delphi2007源代码: procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; item: ISuperObject; begin jo := SO(Memo1.Text); for item in jo do Showmessage(item.asjson(false,false…

在MFC下要实现文件夹的递归遍历,可用CFileFind类,依次读取文件夹下的子文件夹和文件,并判断通过判断是文件夹还是文件来决定递归遍历.递归遍历代码如下: /************************************************************************/ /* 遍历打包目录下的所有文件 */ /************************************************************************/ v…

1> 将文件Replacement BorlndMM DLL/Precompiled/for Delphi IDE/Performance/BorlndMM.dll,替换掉Delphi/Bin下的相应文件,完成对IDE的提速:2> 设置路径:Enviroment->Library->Directories-> Library Path 添加FassMM路径(在Delphi安装目录下建立FastMM文件夹,“C:\Program Files\Borland\Delphi7\Fa…

package com.hxzy.IOSer;import java.io.*;/*File 类获取功能 * List * ListFile * */public class Demo06 { public static void main(String[] args) { Gu_2(); } /* * 2... * File类的获取 * File[] file2 = file.listFiles() * 功能:返回file类型数组这个数组是你文件夹中的所有文件 相当于遍历目录 * 这个方法返回…

相关资料:http://www.cnblogs.com/del/archive/2009/10/23/1588690.html 问题现象:在高版本中可以使用IN处理JSON的节点循环问题,可是发现D7不支持. 问题处理: Delphi2007源代码: procedure TForm1.Button1Click(Sender: TObject); var jo: ISuperObject; item: ISuperObject; begin jo := SO(Memo1.Text); for it…