快速报告表达问题参与字符串并替换它

Question

即时搜索快速报告4中的代码，其中包含2个字符串的第一个字母，如果是10，请为我写红色，如果它是11个右蓝色给我

另一个例子

{IF以＆＃34; ab ...＆＃34开头;然后写＆＃34; RED＆＃34; IF以＆＃34; dc ...＆＃34;开始然后写＆＃34;蓝＆＃34;}

Answer 1

这样的东西？

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  if Copy(Memo2.Text,1,2) = 'ab' then
  begin
    Memo2.Text:= 'Red';                                                        
    Memo2.Font.Color:= clRed;  
  end;  

  if Copy(Memo6.Text,1,2) = 'dc' then
  begin
    Memo6.Text:= 'Blue';                                                                      
    Memo6.Font.Color:= clBlue;
  end;        
end;

Answer 2

试试这个：

Var Str : String;
begin
Str := 'Your String';
Str := Copy (Str , 1 , 2 );
If Str='Yo' then
 ShowMessage('RED')
  else
      If Str='You' then
         ShowMessage('BLUE');