2 respuestas en este tema

[pepemangdl]

buenos días amigos con una duda , quiero encontrar una palabra de una cantidad de numero (un mil doscientos cuarenta y cuatro ) esa frase la quiero partir en dos ya que estoy imprimiendo en una impresora de tickets y el tamaño es de 50 espacios, seria pasar el cuarenta y cuatro al renglón que sigue  ayudaaaaaa!!!

[Delphius]

Si la idea es buscar una cadena dentro de otra basta con usar la funcion Pos() que te devuelve la posición en la que fue encontrada la subcadena. De no hallarla devuelve 0.

Luego, como ya tienes el largo de la subcadena puedes recuperar o "partir" el texto en tantos pedazos como requieras.

Busca en el foro sobre Pos() que hay varios hilos con código de ejemplo.

 

 

Saludos,

[BDWONG]

Como meciona Delphius puedes usar Pos, para mas informacion puedes referirte a la documentacion oficial http://docs.embarcad...ByteString.html

 

Ejemplo

delphi

var
  Source:String;
  Index: Integer;
begin
  Source:='blabaaabab aba un mil doscientos cuarenta y cuatro balababa';
  Index:=Pos('un mil doscientos cuarenta y cuatro',Source);
 
  if Index>0 then WriteLn('La cadena se encuentra en la posicion ',Index)
  else WriteLn('La cadena no se encuentra ');
end.