DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: xtitxtey
今日帖子: 26
在线用户: 9
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 fausten (fausten) ★☆☆☆☆ -
盒子活跃会员
2023/5/25 9:32:48
标题:
试验了一下chatgpt 4.0,真的很好用 浏览:665
加入我的收藏
楼主: 1)让用free pascal写一个在centos底下遍历目录文件的程序,马上就回复我一个:
program DirectoryTraversal;

{$mode objfpc}{$H+}

uses
  SysUtils;

procedure TraverseDirectory(const APath: string);
var
  SearchRec: TSearchRec;
  FilePath: string;
begin
  if FindFirst(APath + DirectorySeparator + '*', faAnyFile, SearchRec) = 0 then
  begin
    try
      repeat
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        begin
          FilePath := APath + DirectorySeparator + SearchRec.Name;
          WriteLn(FilePath); // 这里可以对每个文件进行处理,例如输出文件路径
          if (SearchRec.Attr and faDirectory) = faDirectory then
          TraverseDirectory(FilePath); // 如果是目录,递归遍历子目录
        end;
      until FindNext(SearchRec) <> 0;
    finally
      FindClose(SearchRec);
    end;
  end;
end;

begin
  TraverseDirectory('/home/fausten/importsgf'); // 替换为你要遍历的目录路径
end.

还在命令行教我怎么编译。

2)在写长的curl带参数shell执行文件的时候,发现参数传不进去。然后问chatgpt,马上告诉我如果要传参,不能用单引号。一试验果然好了,真的很提高工作效率。就是要翻墙,不是很方便。
----------------------------------------------
-
作者:
男 net1999 (好人) ★☆☆☆☆ -
普通会员
2023/5/25 10:40:19
1楼: 在哪?
----------------------------------------------
-
作者:
男 fausten (fausten) ★☆☆☆☆ -
盒子活跃会员
2023/5/25 12:09:06
2楼: 要翻墙,www.openai.com
----------------------------------------------
-
作者:
男 fausten (fausten) ★☆☆☆☆ -
盒子活跃会员
2023/5/25 12:17:23
3楼: 微软的github有copilet的付费版,但是不好用,还是chatgpt用的自由。
----------------------------------------------
-
作者:
男 tuao (tuao) ★☆☆☆☆ -
盒子活跃会员
2023/5/26 16:22:23
4楼: 这段代码怎么感觉是windows系统下的
----------------------------------------------
tuao
作者:
男 1111111112 (1111111112) ▲△△△△ -
普通会员
2023/5/26 20:31:56
5楼: 真能机器自动写代码?不过是抄书卖钱而已.
----------------------------------------------
-
作者:
男 fausten (fausten) ★☆☆☆☆ -
盒子活跃会员
2023/5/28 12:36:49
6楼: windows下是用finddata结构
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行62.5毫秒 RSS