本文整理自网络,侵删。
Memo1内容:12345678910
unit Unit2;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type TForm2 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);var I: Integer;beginfor I := 0 to Memo1.Lines.Count-1 dobegin
if (strtoint(Memo1.Lines.Strings[i])>=5) and (strtoint(Memo1.Lines.Strings[i])<=8) thenbegin Memo2.Lines.Add(Memo1.Lines.Strings[i]);end;end;
end;
end.
结果:5678
相关阅读 >>
Delphi xe实现android 添加图片资源到应用并使用它
pchar和array [0..255] of char的区别
Delphi sqlite incomplete input 错误
更多相关阅读请进入《Delphi》频道 >>