delphi 如何用label 来控制显示动态字幕 显示一条信息 这些信息是放在数组中的 停2秒再显示下一条信息 该

Question

谢谢 chunlizh 你的方法const txt:array[0..5] of string=('文本0','文本1','文本2','文本3','文本4','文本5');可以实现

但是我的数组是变化的 是从数据库中动态提取的内容啊 该怎么写？
var Arr:array[1..500]of string;

Arr[1]:=stu_tab.FieldByName('stuname').AsString;

Answer 1

动态变化的，可以根据当前数据库中提取到的clientDATASET来控制数组的大小，并循环赋值
var
Arr:array of string;

setlength(Arr,stu_tab.recordcount);
stu_tab.first;
for i =0 to stu_tab.recordcount -1 do
begin
arr[i]=stu_tab.FieldByName('stuname').AsString;
stu_tab.next;
end;

Answer 2

加一个Timer控件，设定时间为2秒，在Timer控件的事件中设定label显示的文本，然后将当前显示的数组的序号保存在label的tag属性中
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const
txt:array[0..5] of string=('文本0','文本1','文本2','文本3','文本4','文本5');
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:= txt[Label1.tag mod length(txt)];
Label1.tag := Label1.tag mod length(txt) +1;
end;

end.

Answer 3

同一楼：在定时器事件里写：
label1。caption：=s[label1.tag];//S为字符串数组
label1.tag:=label1.tag+1;

Answer 4

ge控件, 做个BMP图形, 如果没什么图形软件, 也可以自己用Word打一个一元二次方程, 拷贝屏幕, 粘到诸如Windows的画图之类的软件中, 切下所需的部分, 保存为BMP格式的文件, 在Image控件中把它放上去就OK了.

Answer 5

可以不用数组来实现。用TStrings来实现。
var StrList:TStrings;
i:integer;
begin
StrList:=TStringList.Create;
stu_tab.First;
while not stu_tab.eof do begin
StrList.append(stu_tab.FieldByName('stuname').AsString);
stu_tab.next;
end;
for i:=0 to StrList.count-1 do begin
Label.Caption:=StrList[i];
Sleep(2000);
Application.ProcessMessages;
end;
end;