求高手，如果在一个edit中只能有‘左’‘右’这两个字，怎么写呢？？

Question

如果在一个edit中只能有‘左’‘右’这两个字，怎么写呢？？急！！！！！！！！！！！！！
 
   是不是要用到汉字编码表呢？怎么用？请高手解答！！！

Answer 1

那如果要截取字符串怎么样截取呢，可以说说吗？还想问个问题，如果要是想判断edit中的内容是否为我想要的：比如说像  数字，汉字，字母等，不用keypress  可以用其他的方法实现吗？要是可以，具体怎么实现？

Answer 2

COPY函数可以取子串，具体参考delhpi帮助。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
    s:=AnsiReplaceStr(edit1.Text,'左','');
    s:=AnsiReplaceStr(s,'右','');
    if s<>'' then showmessage(s) else showmessage('ok');
end;
楼主结贴给分……

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
    s:=AnsiReplaceStr(edit1.Text,'左','');
    s:=AnsiReplaceStr(s,'右','');
    if s<>'' then showmessage(s) else showmessage('ok');
end;
楼主结贴给分……

Answer 5

var
i:integer;
Str:String;
begin
  Str:=Edit1.text;
  for i:=1 to length(Str) do
  begin
    if (Str[i]+Str[i+1]<>'左') or (Str[i]+Str[i+1]<>'右') then
    begin
      showmessage('Edit1的内容中含有其他字符！');
      exit; 
    end;
  end;end;

Answer 6

楼上的：两个错误
1：or应该为and
2：当i=2时也就是取到‘左’的右半边和‘右’的左半边时也会报错，而这是不应该报的

Answer 7

在ONKEYPRESS事件中判断你要得到的KEY的ASCII值，对就写入，不对则置KEY：=#0

Answer 8

suihu(俺是"拖拉"员)   你的方法我用过了，不行啊！

Answer 9

瞎折腾1.先TRIM(edit.text);
2.判断
edit.text='左' and edit.text='右'

Answer 10

在KeyPress事件中处理就可以了.

Answer 11

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key<>#215) and (key<>#211) then
  begin
    key:=#0;
    showMessage('只能输入“左”或“右”！');
  end;
end;