Ver Mensaje Individual
  #9  
Antiguo 06-09-2003
migueilichenco migueilichenco is offline
Miembro
 
Registrado: may 2003
Ubicación: desconocido
Posts: 61
Reputación: 21
migueilichenco Va por buen camino
hola,

bueno tras relisados los pasos arriba descritos surgio un problema el cual es que cuando ejecuto el programa aunque se encuentren las paalbras siempre me sale que la decision es igual a ¿? y segun lo que yo queria hacer es que cuando escuentre en el memo1 diga si en el memo2 diga no y si no ahy la palabra diga ¿? bueno ese es mi problema les agradeceria una manita
________________________________________________
code

procedure TForm1.Button1Click(Sender: TObject);

var

i:Integer;
j:Integer;
Posicion:Integer;
nBlanco:Integer;
nCont:integer;
cPalabra:String;

begin

richedit1.Lines.Add(usuario+': '+edit1.text);
begin
for nCont:=1 to Length(Edit1.text) do
begin
cPalabra:=cPalabra + edit1.text[nCont];

if edit1.text[nCont] = ' ' then
begin
ListBox1.Items.Add(cPalabra);
cPalabra:=''

end;

end;

ListBox1.Items.Add(cPalabra);

end;

begin

for j:= 0 to listbox1.Items.Count - 1 do
begin

for i:=0 to memo1.lines.count-1 do
begin

if Pos(Listbox1.Items[j],memo1.lines[i]) <> 0 then
decision:='no '
else
if Pos(Listbox1.Items[j],memo2.lines[i]) <> 0 then
decision:='si '
else
if not(Pos(Listbox1.Items[j],memo2.lines[i])<> 0) then
decision:='¿? '
end;
end;
end;

Edit1.Text := StringReplace(Edit1.Text, 'eres', decision+'soy', [rfReplaceAll,rfIgnoreCase]);
Edit1.Text := StringReplace(Edit1.Text, 'tu', 'yo', [rfReplaceAll,rfIgnoreCase]);
richedit1.Lines.Add('BIA1X'+': '+edit1.text);
edit1.Clear;
listbox1.Clear;
end;
___________________________________________________

gracias de antemano
__________________
chenko----
Responder Con Cita