小编Mat*_*ggs的帖子

所以我已经有了代码.但是当它运行时它不允许退格键,我需要它来允许退格键并删除空格键,因为我不想要空格.

procedure TForm1.AEditAKeyPress(Sender: TObject; var Key: Char);
var s:string;
begin
s := ('1 2 3 4 5 6 7 8 9 0 .'); //Add chars you want to allow
if pos(key,s) =0 then begin Key:=#0;
showmessage('Invalid Char');
end;

需要帮助谢谢:D

是否可以逐行搜索TextFile以查找特定字符串.即.Hello它逐行搜索以查找是否有任何行包含Hello.每行只有一个字符串.这可能吗？如果是这样,我该如何尝试呢？

如果我单击表单右上角的X,我的程序将继续运行.这也发生在Delphi 4中,然后我被迫进行程序重置,因为如果不这样做,它将不会重新发生.主表格代码:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TMainForm = class(TForm)
    NewButton: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ExitButton: TButton;
    LockButton: TButton;
    SettingsButton: TButton;
    Label1: TLabel;
    TimeLabel: TLabel;
    Timer1: TTimer;
    procedure ExitButtonClick(Sender: TObject);
    procedure LockButtonClick(Sender: TObject);
    procedure SettingsButtonClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure NewButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Unit2, Unit1, Unit4;

{$R *.DFM} …

所以这可能很难解释,但我想做一个...:= 1到10做声明,但我希望它是为A到N做.这种例外的主要目的是将数据加载到字符串网格中.因此,让它加载单元格0,1 0,2 0,3 0,4 0,5 0,6 0,7,字母A,B,C,D,E一直到14.如果有人知道的话怎么做我会非常感激!

举个例子

def Test():
    Function = 'one'

print(Function)

怎么去做呢？目前我得到了

NameError:未定义名称"Function"