ayuda con arvhivos de textos y arreglos en delphi

[twister]

no me funciona :S tal vez no entiedas lo q en realidad quiero hacer!! o.o

[twister]

podrias agregarme al msn para explicar bien!!

[ecfisa]

Hola.

Hice la prueba y funciona correctamente de acuerdo a la condicion que expusiste: <cadena1> espacio <cadena2>.

Para comprobarlo, copia y pega lo siguiente:

procedure QuitarMayorMenor(const Value: string; var s1,s2: string);
var
  i: Integer;
begin
  s1:= '';
  for i:= 1 to Length(Value) do
    if not(Value[i] in ['<', '>']) then
      s1:= s1 + Value[i];
  s2:= Copy(s1, Pos(' ', s1)+1, MaxInt);
  Delete(s1, Pos(' ', s1), MaxInt);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  Cad1,Cad2, st: string;
begin
  st:= '<hola> <mundo>';
  QuitarMayorMenor(st ,Cad1, Cad2);
  ShowMessage(Cad1+#10#13+Cad2);
end;

Usé otras etiquetas, para que puedas copiar y pegar el ejemplo tal como es.


Nota: Si lees la guía de estilo , verás que dice: No solicites que te respondan por correo en privado.
(Por lo que borro el mismo de tu mensaje anterior)


Un saludo.

[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.