Recorrer un string y actuar segun palabras leidas

[vcs]

Ahora mucho mas claro, pero aun asi perdona mi ignoracia pero entiendo que Result es lo que va a devolver la funcion ¿no? esque en el PseudoBasic que he programado no existian las funciones y todavia me lio porque por ejemplo ni entiendo muy bien la definicion de la funcion

function PrimeraPalabra(o : string) : string;

entiendo que PrimeraPalabra es el nombre de la funcion, a continuacion
(o:string) querra decir que se va a usar esa variable de tipo Sting
y :String que el resultado de la funcion de PrimeraPalabra será del
tipo String

¿eso seria igual que decir lo siguiente?

Funcion PrimeraPalabra:string;
var
o:String;
Begin
...
Por otro lado en la segunda Funcion

function Restofrase(o : string) : string;
begin
if Pos(' ',o) = 0 then
result := ''
else
result := Copy(o,Pos(' ',o)+1,1000);
end;comprobamos si hay alguna posicion en la haya un ' ' pero eso ya se ha hecho en la primera funcion ¿no? y por otro lado en la ultima expresion usamos copy(o,Pos(' ',o)+1,1000) pero al hacer eso suponemos que hay 1000 caracteres en el String entonces no se copiaran todos los signos raros esos que veo cuando uso el depurador #$D ¿?

Asias por tu paciencia y siento hacer unas preguntas tan simples.

[[coso]]

function PrimeraPalabra(o : string) : string;

entiendo que PrimeraPalabra es el nombre de la funcion, a continuacion
(o:string) querra decir que se va a usar esa variable de tipo Sting
y :String que el resultado de la funcion de PrimeraPalabra será del
tipo String

¿eso seria igual que decir lo siguiente?

Funcion PrimeraPalabra:string;
var
o:String;
Begin
...

no es lo mismo, puesto que de la primera manera se envia un parametro (o) a la funcion.

...comprobamos si hay alguna posicion en la haya un ' ' pero eso ya se ha hecho en la primera funcion ¿no?

no, puesto que las funciones son 'trozos' de codigo autonomos, los cuales tu les envias ciertos parametros y te devuelven un resultado. Luego, en el bucle principal (que deberas colocar en un evento OnClick, por ejemplo) se 'llaman' a estas funciones con el parametro que nos interesa (en ese caso, s) y se recoge su resultado tambien donde nos interesa.

por otro lado en la ultima expresion usamos copy(o,Pos(' ',o)+1,1000) pero al hacer eso suponemos que hay 1000 caracteres en el String entonces no se copiaran todos los signos raros esos que veo cuando uso el depurador #$D

ese es el numero de caracteres que se copiaran desde la posicion origen dada (resultado string = Copy(string origen, posicion_origen, longitud a copiar)) solo que si te pasas de la longitud de cadena, se copia hasta el final (para hacerlo correctamente se tendria que restar la longitud inicial de la posicion origen). Vamos, que el mil esta para que copie hasta el final.

entonces no se copiaran todos los signos raros esos que veo cuando uso el depurador #$D ¿?

si, se copia todo. Ese por eso es el caracter #10, que con el stringreplace ya queda descartado.

Asias por tu paciencia y siento hacer unas preguntas tan simples.

tranquilo, asi aprendemos todos, que nadie nace enseñado. saludos.

[vcs]

Ok, ya me queda mas claro,

al final he montado un codigo que hace lo que quiero aunque se complica demasiado

procedure TFXY.Button5Click(Sender: TObject);
var
  cadena1:string;
  cadena2:string;
  cadena3:string;
  siguiente:string;
  posicion:integer;
  posicion1:integer;
  posicion2:integer;
  chivato:integer;
  chivato2:integer;
  a: Integer;
  b: Integer;
  label
  kk;
begin
 chivato:=0;
 chivato2:=0;
  cadena1:='ENTITIES';
  posicion:=pos(cadena1,mtexto.Text);
  a:=posicion;
  while chivato=0 do
  begin
  kk:
   a:=a+1;
    cadena2:=mtexto.Text[a+7];
    if (cadena2=' ')or
        (cadena2=#10) or
        (cadena2=#13) or
        (Cadena2=#0) then
        BEGIN
        b:=a+1;
        siguiente:=mtexto.text[b+7];
    if (siguiente=' ')or
       (siguiente=#10) or
       (siguiente=#13) or
       (siguiente=#0) then
       goto kk
       else
       begin
        posicion1:=a+7;
        chivato:=1;
       end;
        END;
   end;
   while chivato2=0 do
    begin
   a:=a+1;
    cadena2:=mtexto.Text[a+7];
    if (cadena2=' ')or
        (cadena2=#10) or
        (cadena2=#13) or
        (Cadena2=#0) then
        BEGIN
        posicion2:=a+7;
        chivato2:=1;
        END;
   end;
  mtexto.SelStart:=posicion1;
  mtexto.SelLength:=posicion2-posicion1;
  Mtexto.SetFocus;
  cadena3:=mtexto.SelText;
  memo1.Text:=cadena3;

Para aprender me ha venido GENIAL pero esta claro que si tubiera que hacer un tecto de configuraciones lo mas sencillo desde luego seria trabajar por lineas y usar IndexOf que te arregla todo el código, muchas gracias por la ayuda.

[vcs]

He seguido mirando el tema ahora desde el punto de vista de las lineas y me encuentro con una chorrada de problemilla pero no le veo la salida, como se seleccionan varias lineas de Memo?

cuando trabajo Con string hago lo siguiente:

memo.selstart:=posicioninicial;
memo.sellength:=logitud;
memo.setfocus;
cadena:=memo.seltext;

pero si trabajo con las lineas no se como hacerlo.

Gracias

[[coso]]

Hola de nuevo, se puede acceder a cada linea de un memo mediante un indice:

Código Delphi [-]
 
linea1 := memo1.lines[0];
linea2 := memo1.lines[1];
...
linean := memo1.lines[n-1];
linea1_y_2 := memo1.lines[0] + ' ' + memo1.lines[1];

saludos

[*Caro*]

Hola, como te dice el amigo Coso, para acceder a las líneas debes hacerlo con la propiedad Lines y su respectivo indice.

Tu codigo en un memo mas o menos sería así (para marcar varias líneas), le das valores a LineaIni y LineaFin, que serían las líneas que quieres marcar:

Código Delphi [-]
var
 i, LineaIni, LineaFin, aLength, aStart : Integer;
begin
 aLength := 0;
 aStart := 0;
 for i:=0 To LineaIni-1 do
  aStart := aStart + Length(Memo1.Lines[i])+2;
 
 for i:=LineaIni To LineaFin do
  aLength := aLength +Length(Memo1.Lines[i])+2;
 
 Memo1.SelStart := aStart;
 Memo1.SelLength := aLength;
 Memo1.SetFocus;
 Showmessage(Memo1.SelText);

Pero no entiendo porque lo haces así, si quieres obtener una parte de un texto en una cadena puedes utilizar la función Copy.

Saluditos

[vcs]

Hola, Gracias a los dos por responder, Pues la verdad es que yo tampoco se muy bien porque lo hago así, como comenté al principio no tengo mucha idea de delphi, y lo hago asi porque era un poco lo que se me fue ocurriendo, los problemas que estaba teniendo era al insertar texto en lineas

Memo.lines[3]:='linea tres';

Y a partir de ahí, probando cosas llegue a la pregunta anterior, el problema que tenia era que queria meter texto en la linea 3 cuando no existian las lineas anteriores, por eso no aparecia nada al escribir, la solucion pasó por meter un

memo.lines[0]:=#13#10;
memo.lines[1]:=#13#10;
memo.lines[2]:=#13#10;
...
de esa forma meto los saltos de linea. Voy a probar los codigos que me incluis asi como la funcion de Copy a ver si me voy aclarando.

Por otro lado ¿habeis usado alguna vez el puerto ethernet? lo que me gustaria es sacar por el puerto ethernet un mensaje del tipo ascii por ejemplo ese ACTIVANDO SECUENCIAS BLABLA

Es decir, se puede hacer algo parcido a un Hyper terminal de windows, donde marcando el IP del pc remoto le mande la trama que hemos escrito?

He leido algo sobre las librerias Indy pero me parecen por un lado muy complicados y por otro que tienen demasiadas cosas para el uso que yo propongo, que no es mas que habrir un hiperterminal en un PC y desde el que está programa delphi mandarle un HOLA MUNDO, tal cual.

ASIAS

[[coso]]

Hola, lo del memo tendrias que usar el metodo Add :

Código Delphi [-]
memo1.Add('1 linea');
memo1.Add('');

sobre lo del hyperterminal, en 'demos' hay ejemplos de un chat y otros relacionados usando los componentes nativos de delphi. saludos.