居然没人讨论一下deepseek？

pda8888 · 发表于 2025-1-26 19:03:57

www.deepseek.com
神器啊，可以帮助写好多代码，并帮助你学习以前可能根本不掌握的编程知识。
我一直在用chatgpt，感觉deepseek的确不输给chatgpt，不过网传的强过4o，就不清楚了，因为我没有购买gpt4o使用权

dreamingcoffee · 发表于 2025-1-26 19:07:49

商家卷款跑路了，用不了chatgpt了。

518hl · 发表于 2025-1-26 19:11:58

在用感觉挺好的很智能啊

hkl7366 · 发表于 2025-1-26 19:26:45

这两天刚接触，觉得挺好的。

fjun67 · 发表于 2025-1-26 19:48:42

还没有用上。先了解下。

dysunb · 发表于 2025-1-26 20:00:49

可能知道的人还是少啊

wintoflash · 发表于 2025-1-26 20:41:25

http://bbs.wuyou.net/forum.php?m ... &extra=page%3D1
对于生成式人工智能，最好不要在论坛上讨论。

pda8888 · 发表于 2025-1-26 20:59:43

wintoflash 发表于 2025-1-26 20:41
http://bbs.wuyou.net/forum.php?mod=viewthread&tid=436442&extra=page%3D1
对于生成式人工智能，最好不 ...

不好意思，没看到这规定，请版主封帖吧。

tt911 · 发表于 2025-1-26 21:00:04

已经用了一周多了。。
开始delphi里表现很好
后来没三天就连接不上了
只能vs code或网页里用了。

http88 · 发表于 2025-1-26 21:21:03

豆包算力第一 chatgpt第二 deepseek第三

martin313 · 发表于 2025-1-26 21:23:06

tt911 发表于 2025-1-26 21:00
已经用了一周多了。。
开始delphi里表现很好
后来没三天就连接不上了

牛逼达人

bgcen · 发表于 2025-1-26 21:30:32

多谢分享

sunyboy · 发表于 2025-1-26 22:33:20

好像DeepSeek很牛！

15126222223 · 发表于 2025-1-26 23:48:05

我一直在学习AI，感觉现在非常牛公司很多，特别是国内在不停追赶，甚至有超过的可能。

wang1126 · 发表于 2025-1-27 06:28:19

谢谢楼主分享

tanglf · 发表于 2025-1-27 07:46:07

牛逼达人一个，说说具体的

ukyomax · 发表于 2025-1-27 08:12:46

DeepSeek很牛

华昕 · 发表于 2025-1-27 08:34:32

用过几回，确实不错，但如果生成文章的话，敏感词一出现，直接就不生成了

szwp · 发表于 2025-1-27 08:38:02

居然想讨论了

dkzzlf · 发表于 2025-1-27 08:45:48

围观学习

tt911 · 发表于 2025-1-27 09:33:56

unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls,
Vcl.ExtCtrls, Vcl.WinXCtrls, Vcl.Menus;
type
TForm1 = class(TForm)
SplitView1: TSplitView;
展开或折叠: TButton;
添加选中节点同级父目录: TButton;
添加文件路径: TButton;
删除节点: TButton;
双击打开文件: TButton;
简单写入TreeView1内容测试: TButton;
TreeView1: TTreeView;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
简单载入TreeView1内容测试: TButton;
Edit1: TEdit;
PopupMenu1: TPopupMenu;
将TreeView1各节点转换为PopupMenu1子菜单项: TButton;
添加与选中节点同级子目录: TButton;
procedure 展开或折叠Click(Sender: TObject);
procedure 添加选中节点同级父目录Click(Sender: TObject);
procedure 添加文件路径Click(Sender: TObject);
procedure 删除节点Click(Sender: TObject);
procedure 双击打开文件Click(Sender: TObject);
procedure 简单写入TreeView1内容测试Click(Sender: TObject);
procedure 简单载入TreeView1内容测试Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TreeView1StartDrag(Sender: TObject; var DragObject: TDragObject);
procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure MenuItemClick(Sender: TObject);
procedure 将TreeView1各节点转换为PopupMenu1子菜单项Click(Sender: TObject);
procedure 添加与选中节点同级子目录Click(Sender: TObject);
private
FDragNode: TTreeNode; // 用于存储当前拖动的节点
{ Private declarations }
procedure ConvertTreeViewToMenu(TreeView: TTreeView; PopupMenu: TPopupMenu);
procedure AddMenuItem(ParentMenu: TMenuItem; Node: TTreeNode);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.删除节点Click(Sender: TObject);
begin
// 删除选中的节点
if TreeView1.Selected <> nil then
TreeView1.Items.Delete(TreeView1.Selected);
end;
procedure TForm1.双击打开文件Click(Sender: TObject);
var
Node: TTreeNode;
begin
// 双击打开文件
Node := TreeView1.Selected;
if (Node <> nil) and (Node.Parent <> nil) then // 如果是文件节点
begin
if FileExists(Node.Text) then
// ShellExecute(0, 'open', PChar(Node.Text), nil, nil, SW_SHOWNORMAL)
else
ShowMessage('File not found: ' + Node.Text);
end;
end;
procedure TForm1.将TreeView1各节点转换为PopupMenu1子菜单项Click(Sender: TObject);
begin
// 清空 PopupMenu
PopupMenu1.Items.Clear;
// 将 TreeView 转换为 PopupMenu
ConvertTreeViewToMenu(TreeView1, PopupMenu1);
// 显示 PopupMenu
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
procedure TForm1.展开或折叠Click(Sender: TObject);
begin
SplitView1.Opened := not SplitView1.Opened; // 切换 SplitView 的展开/折叠状态
end;
procedure TForm1.添加与选中节点同级子目录Click(Sender: TObject);
var
Node: TTreeNode;
begin
// 添加子目录（作为选中节点的子节点）
if TreeView1.Selected <> nil then
begin
Node := TreeView1.Items.AddChild(TreeView1.Selected, Edit1.Text);
Node.ImageIndex := 1; // 设置图标（可选）
Node.SelectedIndex := 1;
TreeView1.Selected.Expand(True); // 展开父节点
end
else
begin
ShowMessage('请先选择一个节点！');
end;
end;
procedure TForm1.添加文件路径Click(Sender: TObject);
var
Node: TTreeNode;
begin
// 添加文件路径
if OpenDialog1.Execute then
begin
Node := TreeView1.Items.AddChild(TreeView1.Selected, OpenDialog1.FileName);
Node.ImageIndex := 1; // 设置图标（可选）
Node.SelectedIndex := 1;
end;
end;
procedure TForm1.添加选中节点同级父目录Click(Sender: TObject);
var
Node: TTreeNode;
begin
// 添加目录（与选中节点同级）
if TreeView1.Selected <> nil then
begin
Node := TreeView1.Items.Add(TreeView1.Selected.Parent, Edit1.Text);
Node.ImageIndex := 0; // 设置图标（可选）
Node.SelectedIndex := 0;
end
else
begin
ShowMessage('请先选择一个节点！');
end;
end;
procedure TForm1.简单写入TreeView1内容测试Click(Sender: TObject);
begin
TreeView1.SaveToFile('abc.txt');
end;
procedure TForm1.简单载入TreeView1内容测试Click(Sender: TObject);
begin
TreeView1.LoadFromFile('abc.txt');
end;
procedure TForm1.FormCreate(Sender: TObject);
var
RootNode, ChildNode: TTreeNode;
begin
// 添加示例数据到 TreeView
RootNode := TreeView1.Items.Add(nil, 'Root Node 1');
ChildNode := TreeView1.Items.AddChild(RootNode, 'Child Node 1.1');
TreeView1.Items.AddChild(ChildNode, 'Grandchild Node 1.1.1');
TreeView1.Items.AddChild(RootNode, 'Child Node 1.2');
RootNode := TreeView1.Items.Add(nil, 'Root Node 2');
TreeView1.Items.AddChild(RootNode, 'Child Node 2.1');
// 展开所有节点
TreeView1.FullExpand;
end;
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
TargetNode: TTreeNode;
begin
// 获取鼠标位置下的目标节点
TargetNode := TreeView1.GetNodeAt(X, Y);
if (TargetNode <> nil) and (FDragNode <> nil) then
begin
// 将拖动节点移动到目标节点下
FDragNode.MoveTo(TargetNode, naAddChild); // naAddChild 表示作为子节点
TargetNode.Expand(True); // 展开目标节点
end;
end;
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
TargetNode: TTreeNode;
begin
// 获取鼠标位置下的目标节点
TargetNode := TreeView1.GetNodeAt(X, Y);
// 允许拖动的条件：
// 1. 拖动源是 TreeView 自身
// 2. 目标节点存在
// 3. 目标节点不是拖动节点的子节点（避免循环嵌套）
Accept := (Source = TreeView1) and (TargetNode <> nil) and
(not FDragNode.HasAsParent(TargetNode));
end;
procedure TForm1.TreeView1StartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
// 开始拖动时，记录当前拖动的节点
FDragNode := TreeView1.Selected;
end;
procedure TForm1.ConvertTreeViewToMenu(TreeView: TTreeView;
PopupMenu: TPopupMenu);
var
i: Integer;
begin
// 遍历所有根节点
for i := 0 to TreeView.Items.Count - 1 do
begin
if TreeView.Items[i].Parent = nil then // 根节点
AddMenuItem(PopupMenu.Items, TreeView.Items[i]);
end;
end;
procedure TForm1.AddMenuItem(ParentMenu: TMenuItem; Node: TTreeNode);
var
MenuItem: TMenuItem;
i: Integer;
begin
// 创建菜单项
MenuItem := TMenuItem.Create(Self);
MenuItem.Caption := Node.Text;
// 如果是叶子节点（没有子节点），绑定点击事件
if Node.Count = 0 then
MenuItem.OnClick := MenuItemClick;
// 将菜单项添加到父菜单
ParentMenu.Add(MenuItem);
// 递归处理子节点
for i := 0 to Node.Count - 1 do
begin
AddMenuItem(MenuItem, Node.Item[i]);
end;
end;
procedure TForm1.MenuItemClick(Sender: TObject);
begin
// // 处理菜单项点击事件
ShowMessageFmt('你点击了: %s', [TMenuItem(Sender).Caption]);
end;
end.

复制代码

9zhmke · 发表于 2025-1-27 10:38:33

pda8888 发表于 2025-1-26 20:59
不好意思，没看到这规定，请版主封帖吧。

主题是Deepseek，没有讨论到需要封贴的内容

wzq123 · 发表于 2025-1-27 10:53:47

听过，没用过，看qq群里有说过。

cena · 发表于 2025-1-27 11:35:17

谢谢分享

呆萌鼠 · 发表于 2025-1-27 13:11:02

国内个人使用感受是豆包稍微详细些，deepseek稍微简洁，不过这两天deepseek进步挺快的，我是喜欢用豆包多一些，deepseek期待提高。

hycsl888 · 发表于 2025-1-27 13:25:53

试了一下，不能AI画图。

win98se · 发表于 2025-1-27 15:36:10

http88 发表于 2025-1-26 21:21
豆包算力第一 chatgpt第二 deepseek第三

尊嘟假嘟

win98se · 发表于 2025-1-27 15:36:42

hycsl888 发表于 2025-1-27 13:25
试了一下，不能AI画图。

AI P图哪家好

guong · 发表于 2025-1-27 15:37:03

来了解下

win98se · 发表于 2025-1-27 15:37:18

tt911 发表于 2025-1-27 09:33

太牛了

		自动登录	找回密码
密码			注册

[分享] 居然没人讨论一下deepseek？

点评

点评

点评

点评

都是AI给我写的

点评

点评

点评

点评