ayuda con arvhivos de textos y arreglos en delphi

[twister]

hola

ups sorry no sabia!! xD bueno dejame probar ese para ver gracias!!

[ecfisa]

No hay problema twister, ya irás familiarizandote con el estilo y las etiquetas.

Cualquier problema que tengas, seguí presentándolo.

Un saludo.

[twister]

ok esta bien!! bueno creo q no me explique y me enviaste unas soluciones a otro problema pero creo q si me dices como introducir cada palabra de la cadena q leo del archivo en un arreglo tambien solucionaria mi problema!! ejemplo

si tengo HOLA MUNDO <var1> <var2>

entonces necesito q HOLA ESTE EN LA PRIEMRA POSICION DEL ARREGLO

MUNDO en la segunda posicion

<var1> en la tercera posicion!!

<var2> en la cuarta posicion!!

sin importar espacios entre las palanbras.......

lo q en realidad necesito traer toda la linea del archivo para verificar su sintaxis y ver si esta bien escrita.... var1 y var2 son valores enteros q debo extraer para hacer operaciones en el programa...

y disculpa la molestia

[ecfisa]

Empezado por twister

pero creo q si me dices como introducir cada palabra de la cadena q leo del archivo en un arreglo tambien solucionaria mi problema!!

Hola twister, no es ninguna molestia.

A ver si de este modo te sirve:

Código Delphi [-]
function LineasAPalabras(const: NomArch: string; Delimitador: Char): TStrings;
var
  Txt: TextFile;
  TS: TStrings;
  st, Linea: string;
begin
  AssignFile(Txt, NomArch);
  Reset(Txt);
  st:= '';
  while not Eof(Txt) do
  begin
    Readln(Txt, Linea);
    st:= st + Linea;
  end;
  CloseFile(Txt);
  Result:= TStringList.Create;
  Result.Delimiter:= Delimitador;
  Result.DelimitedText:= st;
end;

Ejemplos de uso:

Código Delphi [-]
...
begin
  try
    TS:= TStringList.Create;
    TS:= LineasAPalabras('C:\TU_ARCHIVO.TXT',' '); // TS[0] = primer palabra, ...,  TS[TS.Count-1] = última palabra
    // Acceder a cada una de las palabras
    for i:= 0 to TS.Count - 1 do
      ShowMessage(TS[i]);  // aca haces lo que gustes
  finally
    TS.Free;
  end;
end;

Otro ejemplo:

Código Delphi [-]
     Memo1.Lines:= LineasAPalabras('C:\TU_ARCHIVO.TXT',' ');

La función requiere que le envíes el nombre del archivo (Ruta+Nombre) y el delimitador que usará para distinguir una palabra de otra.

Un saludo.

[twister]

copie todo tal cual!! y bueno ya habia usado varias funciones pero no me sirven! :S me dicen q hay error indentifier expected but ':' found despues de la const: se q es algo con los 2 puntos pero cualquier funcion q pongo me da error :S

[ecfisa]

Te pido mil disculpas twister, el error de tipeado es mio !!!!

Quitá los dos puntos luego de const.

La línea tiene que quedar:

Código Delphi [-]
function LineasAPalabras(const NomArch: string; Delimitador: Char): TStrings;

Un saludo.

[twister]

hola ecfisa como estas?

pudimos correr el codigo pero cuenta todas las palabras q hay en el arcihivo y en realidad no necesitamos eso!! solo necesito q guarde las palabras de la primera linea y despues para la segunda linea q empiece desde 0 otra vez el contador para guardar las palabras q hay en la segunda linea!!!

ejm:

si en la primera linea hay cuatro palabras el va a guardar esas palabras y necesitamos comparar cada una de las palabras con otras palabras q tengo.

y el codigo q tu nos mandastes cuentas las palabras y las guarda pero si en la primera linea hay 4 palabras esta bien las cuenta, pero al bajar a la segundo linea empieza a contar desde el 4 para adelante.

osea q si entre la primera y la sengunda linea hay 8 palabras el valor de [i] va a llegar hasta 8... ME EXPLICO???