文本是一种格式，据我所知：选择文本后最显著的效果就是可以输入以0开头的数字，比如007 若是选择常规，输入007后只能显示数字7，前边的0就显示不出来了。

至于单元格右键菜单，最好的学习方法是自己尝试，你在单元格力随便输入数据，然后尝试各个右键选项，实践出真知。

数据处理目的是（ ）。

数据处理的目的可归纳为以下几点:
把数据转换成便于观察分析、传送或进一步处理的形式。
从大量的原始数据申抽取、推导出对人们有价值的信息以作为行动和决策的依据。
科学地保存和管理已经过处理 (如校验、整理等)的大量数据，以便人们能方便而充分地利用这些宝贵的信息资源。
A A A A
ABD AD

Delphi文本处理。

当数据量小时可以采用如下代码,如数量多最好用TXT文档来读一条一条(readln来得到S1和S2)的记录,相信你也弄得明白,本例为力求简单,主要表明判断方法(的一种).本程序最终可以写一条:

if text2.text<>'' then tt.savetofile(text2.text);即可进行保存至你要的文件名中.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Button2: TButton;
    Edit2: TEdit;
    ss: TListBox;
    tt: TListBox;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
edit1.Text :=OpenDialog1.FileName ;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog1.Execute ;
edit2.Text :=SaveDialog1.FileName ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
  ss.Clear;
  ss.Items.LoadFromFile(edit1.text);
  showmessage('数据源读取完毕')
end
else
  showmessage('请选择数据源');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
s,s1,s2,t,t1,t2:string;
newF:boolean;
begin
i:=ss.Count;
if i=0 then exit;
tt.Clear;
newF:=true;
while i>0  do
    begin
    if newF then    //读一条新记录
    begin
    s1:=ss.Items[0];
    newF:=false;
    end
    else
    begin    //非新记录判断之
    s2:=s1;
    s1:=ss.Items[0];
    t1:=copy(s1,1,3);
    t2:=copy(s2,1,3);

    if t1=t2 then    //相等写入两记录的综合点,下一步读新记录
    begin
    t:=s2 + '    '+RightStr(s1,5);
    tt.Items.Add(t);
    newF:=true;
    end
    else
    begin    //不相等写前一个相同时间点,下一步再读一记录比较.
    t:=s2 + '    '+RightStr(s2,5);
    tt.Items.Add(t);

    end;
    end;
    ss.Items.Delete(0);
    i:=ss.Count;
    sleep(200);
    application.ProcessMessages;
    end;
if not newF then    //结束是还有单的一条,写放记录.
  begin
    t:=s1 + '    '+RightStr(s1,5);
    tt.Items.Add(t);
  end;
end;

end.