delphi精品源码_delphi开发网站实例

文章目录：

• 1、求Delphi源码,望高手帮忙!!
• 2、Delphi源码编译
• 3、delphi源码
• 4、求一delphi编写的小程序源码，能够运行会追加！
• 5、求delphi窗体（MDI）相关源码
• 6、求一段完整的Delphi源码，尽可能简单的，在下是菜鸟，想运行下程序认识Delphi。

求Delphi源码,望高手帮忙!!

function GetDirs(dirName: string;var List :TStringList):Boolean;

var

SRec: TSearchRec;

begin

Result := True;

if dirName[Length(dirName)] '\' then

dirName := dirName + '\';

if not DirectoryExists(dirName) then

Result := False

else if FindFirst(dirName + '*.*', faDirectory, SRec) = 0 then

begin

repeat

if (SRec.Attr = faDirectory) and (SRec.Name '.') and (SRec.Name '..') then

begin

List.Add(SRec.FindData.cFileName);

end;

until(FindNext(SRec)0);

end;

FindClose(SRec);

end;

测试

var

sl :TStringList;

begin

sl := TStringList.Create;

try

if GetDirs('d:\',sl) then

ShowMessage(sl.Text)

else

ShowMessage('请检查输入的路径是否正确');

finally

FreeAndNil(sl);

end;

end;

Delphi源码编译

直接创建一个控制台程序.

然后将代码复制到里边编译就可以了!

delphi源码

如果你的 id字段是整型的：

ADOQuery1.SQL.add('SELECT * FROM pictures where id='+inttostr(i));

如果你的 id字段是字符类型的：

ADOQuery1.SQL.add('SELECT * FROM pictures where id='''+inttostr(i)+'''');

求一delphi编写的小程序源码，能够运行会追加！

一、字符界面：

program Project1;

{$APPTYPE CONSOLE}

var

s, sub: string;

i: Integer;

begin

s := 'ACBDCABDCBAAAACCBDACDDBCAADBADCCC';

Read(sub);

i := Pos(sub, s);

if i 0 then Writeln('查找成功。位置：', i)

else Writeln('无法找到');

Readln;

Readln;

end.

二、Windows 界面

在Form上放一个Edit，放一个Button，在Button的OnClick事件中写：

procedure TForm1.Button1Click(Sender: TObject);

var

s, sub: string;

i: Integer;

begin

s := 'ACBDCABDCBAAAACCBDACDDBCAADBADCCC';

sub := Edit1.Text;

i := Pos(sub, s);

if i 0 then ShowMessage('查找成功。位置：' + IntToStr(i))

else ShowMessage('无法找到');

end;

求delphi窗体（MDI）相关源码

把AA1 AA2窗体的属性设置成mdi子窗体后，主窗体设置成mdi夫窗体 其他的处理就和平常的一样了，电脑没有环境 不能演示不好意思

回复补充：ShowMessage("窗体AA1的Caption")； 在窗体a中可以触发aa1的窗体 也就是可以获得它的引用，那就可以获取他的标题的 同理aa1可以获取aa2的引用和标题

求一段完整的Delphi源码，尽可能简单的，在下是菜鸟，想运行下程序认识Delphi。

你用别人的代码，不如自己做一个，直接打开delphi，系统会自己建一个工程，

直接点运行就可以运行了。

也可以自己加点东西，逐渐认识delphi.

比如在窗体中加个按钮，双击按钮，在光标处加一行语句。

MessageBox(0,PChar('Ok!'),PChar('Title'),0);

当你运行程序后点按钮后就会弹出一个消息框。