,文章

班级作业检查程序


--20210620
1.更新了源码,加入时间的打印以及修复一些小BUG,和点击Memo清空内容不便于复制等问题.
--20210617
昨晚上做好的,今天早上发现NAS没有同步,捯饬两下代码全不见了,害我半天又重写了一次,所以干脆尾部把源码贴出来了.
以便以后自己又给捯饬没了,好在博客还有个备份.
--20210616
现在教师都会让学生在微信群接龙完成作业的情况
然而就算是接龙,检查谁没接龙也是一个很头疼的问题.
这个程序完美解决了检查作业的问题,谁接龙了代表已经完成了作业
没交作业的全部列出且统计.
链接:https://pan.baidu.com/s/1fmdzfprdXI4GQarJ1pze8w
提取码:x5k7
复制这段内容后打开百度网盘手机App,操作更方便哦--来自百度网盘超级会员V5的分享

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Memo1Click(Sender: TObject);
  private
    { Private declarations }
  public
    type
      Stat1 = array of string;

      //AllName = (钟瑞秋, 彭紫夏, 周佳慧, 陈可佳, 刘思琦, 陈欣怡, 钟佳婷, 黄育宸, 熊子嫣, 伍妙思, 牛艺涵, 张书涵, 刘淼, 刘晨宇, 严恺昕, 项雨泽, 廖羽良, 杨宇轩, 伍宇乐, 肖哲浩, 闻怡航, 简博成, 刘子文, 伍依铭, 施丽媛, 廖思凯, 袁雨辰, 黄皓翔, 黄宇泉, 钟艺轩, 林颖希, 刘子渊, 梁振楠, 郭雨辰, 黄雨泉, 刘俊佑);
    var
      Mystat: stat1;
      Userinput: string;
      Name: string;
      //FinshName: Stat1;
      EIndex: Integer;


    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //SetLength(Mystat, 38);
  Mystat := Stat1.create('钟瑞秋', '黄佳敏', '钟佳婷', '彭紫夏', '周佳慧', '陈可佳', '刘思琦', '陈欣怡', '钟佳婷', '黄育宸', '熊子嫣', '伍妙思', '牛艺涵', '张书涵', '刘淼', '刘晨宇', '严恺昕', '项雨泽', '廖羽良', '杨宇轩', '伍宇乐', '肖哲浩', '闻怡航', '简博成', '刘子文', '伍依铭', '施丽媛', '廖思凯', '袁雨辰', '黄皓翔', '黄宇泉', '钟艺轩', '林颖希', '刘子渊', '梁振楠', '郭雨辰', '黄雨泉', '刘俊佑');

end;

procedure TForm1.Memo1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  EName: string;
  //DateTime: TDateTime;
begin
  EIndex := 0;
  Userinput := memo1.Text;
  Memo2.Lines.Clear;
  for EName in Mystat do
  begin
    if Pos(EName, Userinput) = 0 then
    begin
      memo2.Text := Memo2.Text + EName + '没有完成作业' + #13#10;
      Inc(EIndex);
    end;
  end;

  Memo2.Text := Memo2.Text + '共计' + IntToStr(EIndex) + '人未交作业.' + #13#10 + DateTimeToStr(Now);
end;

end.


原文来自:班级作业检查程序,尊重自己,尊重每一个人;转发请注明来源!
0 0

发表评论