字符串，帮忙啊~~

[didibaba]

windows文件拒绝/ * < > \ |这6种字符来定义文件，但是我在实际应用中就出现非要用 / 不可的情况。我试过用数学符号" ／"(2个字符）来代替，但是程序又不知道怎样写，请帮忙啊~~~~~~~~~我快要疯了！
我试过：
procedure TExamineeDetail.IdentityCardKeyPress(Sender: TObject;
var Key: Char);
begin
if key='/' then key:='／' ; //请注意后面的/是2个字符
end;
还试过：
procedure TExamineeDetail.IdentityCardKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=191 then //191为/(一个字符）的ASC码
key:=xxx; //具体我忘了用XXX代替
end;

DELPHI我又用得不久，很多语句还不知道。请高手指教！

[王集鹄]

procedure TFormMarkDdiamond.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'/': begin
Key := #0;
Edit1.SelText := '／' ;
end;
end;
end;

[王集鹄]

建议你在保存的时候在处理
这样对用户对自己都方便一些

//请参考
//from
http://kingron.myetang.com

(*//
标题:对全角半角字符串的处理
说明:使用于运用程序中避免用户输入字符不统一
设计:Zswang
日期:2002-01-24
支持:[e-mail]
//*)

///////Begin Source
const
cCharCn: array[#32 .. #126] of string[2] =
(
{ }'　',{!}'！',{"}'＂',{#}'＃',{ }'＄',{%}'％',{&}'＆',{'}'＇',{(}'（',
{)}'）',{*}'＊',{+}'＋',{,}'，',{-}'－',{.}'。',{/}'／',{0}'０',{1}'１',
{2}'２',{3}'３',{4}'４',{5}'５',{6}'６',{7}'７',{8}'８',{9}'９',{:}'：',
{;}'；',{<}'＜',{=}'＝',{>}'＞',{?}'？',{@}'＠',{A}'Ａ',{B}'Ｂ',{C}'Ｃ',
{D}'Ｄ',{E}'Ｅ',{F}'Ｆ',{G}'Ｇ',{H}'Ｈ',{I}'Ｉ',{J}'Ｊ',{K}'Ｋ',{L}'Ｌ',
{M}'Ｍ',{N}'Ｎ',{O}'Ｏ',{P}'Ｐ',{Q}'Ｑ',{R}'Ｒ',{S}'Ｓ',{T}'Ｔ',{U}'Ｕ',
{V}'Ｖ',{W}'Ｗ',{X}'Ｘ',{Y}'Ｙ',{Z}'Ｚ',{[}'［',{\}'＼',{]}'］',{^}'＾',
{_}'＿',{`}'｀',{a}'ａ',{b}'ｂ',{c}'ｃ',{d}'ｄ',{e}'ｅ',{f}'ｆ',{g}'ｇ',
{h}'ｈ',{i}'ｉ',{j}'ｊ',{k}'ｋ',{l}'ｌ',{m}'ｍ',{n}'ｎ',{o}'ｏ',{p}'ｐ',
{q}'ｑ',{r}'ｒ',{s}'ｓ',{t}'ｔ',{u}'ｕ',{v}'ｖ',{w}'ｗ',{x}'ｘ',{y}'ｙ',
{z}'ｚ',{{}'｛',{|}'｜',{ }'｝',{~}'～');

function StrToGBText(mStr: string): string; { 返回字符串转换成全角字符串 }
var
I: Integer;
begin
Result := '';
for I := 1 to Length(mStr) do
case mStr[I] of
#32 .. #126: Result := Result + cCharCn[mStr[I]];
else Result := Result + mStr[I];
end;
end; { StrToGBText }

function GBTextToStr(mText: string): string; { 返回字符串转换成半角字符串 }
var
I: Integer;
J: Char;
S: string;
begin
Result := '';
for I := 1 to Length(WideString(mText)) do begin
S := WideString(mText)[I];
if Length(S) > 1 then for J := #32 to #126 do
if cCharCn[J] = S then begin
S := J;
Break;
end;
Result := Result + S;
end;
end; { GBTextToStr }
///////End Source

///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := StrToGBText(Memo2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Text := GBTextToStr(Memo1.Text);
end;
///////End Demo

[imchk6]

if key='/' then
begin
key:=#0;
Edit1.SelText := '／' ;
end;

[imchk6]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key='/' then
begin
key:=#0;
Edit1.SelText := '／' ;
end;