unit SortMemo;
|
|
interface
|
|
uses
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons,IISunit;
|
|
type
|
TSortMemoForm = class(TForm)
|
Panel1: TPanel;
|
Panel2: TPanel;
|
ComboBox1: TComboBox;
|
MemoLV: TListView;
|
MsgLb: TLabel;
|
AddBt: TButton;
|
SaveBt: TButton;
|
EraseBt: TButton;
|
ExitBt: TButton;
|
procedure FormCreate(Sender: TObject);
|
procedure MemoLVSelectItem(Sender: TObject; Item: TListItem;
|
Selected: Boolean);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure Button1Click(Sender: TObject);
|
procedure Button2Click(Sender: TObject);
|
procedure EraseBtClick(Sender: TObject);
|
procedure Button4Click(Sender: TObject);
|
private
|
{ Private declarations }
|
public
|
{ Public declarations }
|
ContentList : TStringlist; //µù°O¤º®e²M³æ
|
MemoIDList : TStringlist; //µù°O¥N¸¹²M³æ
|
MemoNameList : TStringlist; //µù°O¦WºÙ²M³æ
|
ResoureMemo : TStringlist;
|
end;
|
|
var
|
SortMemoForm: TSortMemoForm;
|
|
implementation
|
|
{$R *.dfm}
|
|
procedure TSortMemoForm.Button1Click(Sender: TObject);
|
var
|
i : Integer;
|
iContent,iName : String;
|
MemoExitst : Boolean;
|
begin
|
if combobox1.ItemIndex <> -1 then
|
begin
|
iContent := ContentList.Strings[Combobox1.ItemIndex];
|
iName := MemoNameList.Strings[Combobox1.ItemIndex];
|
end
|
Else
|
begin
|
if ComboBox1.Text = '' then
|
begin
|
Showmessage(_Msg('½Ð¿é¤Jµù°O¤º®e'));
|
Exit;
|
end;
|
iContent := ComboBox1.Text;
|
iName := _Msg('¦Û¦æ¿é¤J');
|
end;
|
MemoExitst := False;
|
for i := 0 to MemoLV.Items.Count - 1 do
|
begin
|
if (MemoLV.Items.Item[i].Caption = iContent) and (MemoLV.Items.Item[i].SubItems.Strings[0]=iName) then
|
begin
|
MemoExitst := True;
|
Showmessage(_Msg('µù°O¤v¦s¦b'));
|
Exit;
|
end;
|
end;
|
if not MemoExitst then
|
begin
|
With MemoLV.Items.Add do
|
begin
|
Caption := iContent;
|
Subitems.Add(iName);
|
end;
|
ComboBox1.ItemIndex := -1;
|
ComboBox1.Text := '';
|
end;
|
end;
|
|
procedure TSortMemoForm.Button2Click(Sender: TObject);
|
begin
|
modalResult := mrok;
|
end;
|
|
procedure TSortMemoForm.EraseBtClick(Sender: TObject);
|
begin
|
if MemoLV.Selected <> nil then
|
begin
|
if MessageDlg(_msg('¬O§_§R°£¦¹µù°O?'),mtConfirmation,[mbyes,mbcancel],0) = mrcancel then
|
Exit;
|
MemoLV.Selected.Delete;
|
Showmessage(_Msg('§R°£§¹¦¨'));
|
end;
|
end;
|
|
procedure TSortMemoForm.Button4Click(Sender: TObject);
|
begin
|
modalResult := mrcancel;
|
end;
|
|
procedure TSortMemoForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
var
|
i : Integer;
|
NeedSave : Boolean;
|
iContent : String;
|
begin
|
NeedSave := False;
|
if ReSoureMemo.Count <> MemoLV.Items.Count then
|
begin
|
NeedSave := True;
|
end
|
Else
|
begin
|
for i := 0 to Resourememo.Count - 1 do
|
begin
|
iContent := MemoLV.Items.Item[i].SubItems.Strings[0]+'-->'+ MemoLV.Items.Item[i].Caption;
|
if ResoureMemo.Strings[i] <> iContent then
|
begin
|
NeedSave := True;
|
Break;
|
end;
|
end;
|
end;
|
if (modalResult= mrcancel) and NeedSave then
|
begin
|
if messagedlg(_Msg('©|¦³×§ï¥¼Àx¦s,¬O§_©ñ±óÀx¦s'),mtconfirmation,[mbyes,mbcancel],0) = mrCancel Then
|
begin
|
Action := caNone;
|
Exit;
|
end;
|
end;
|
Action := caFree;
|
ResoureMemo.Free;
|
end;
|
|
procedure TSortMemoForm.FormCreate(Sender: TObject);
|
begin
|
PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
|
ResoureMemo := TStringlist.Create;
|
end;
|
|
procedure TSortMemoForm.MemoLVSelectItem(Sender: TObject; Item: TListItem;
|
Selected: Boolean);
|
var
|
i : Integer;
|
S : String;
|
begin
|
ComboBox1.ItemIndex := -1;
|
ComboBox1.Text := '';
|
if (Item.SubItems.Strings[0] = _Msg('¦Û¦æ¿é¤J')) or (Item.SubItems.Strings[0] = '') then
|
begin
|
ComboBox1.Text := Item.Caption;
|
end
|
Else
|
begin
|
S := Item.SubItems.Strings[0]+'-->'+Item.Caption;
|
for i := 0 to ComboBox1.Items.Count - 1 do
|
begin
|
if S = ComboBox1.Items.Strings[i] then
|
begin
|
ComboBox1.ItemIndex := i;
|
Exit;
|
end;
|
end;
|
end;
|
end;
|
|
end.
|
