error de funcion dentro de un stringlist...

[*Caro*]

Hola Greco, te sale el error porque te falta un parametro cuando llamas a tu función GetTex, también puedes hacerlo utilizando StringList y sus funciones Delimiter y DelimiterText.

Código Delphi [-]
var
 slFile, slLinea, slFileNuevo : TStringList;
begin
  slFile := TStringList.Create; //Para todo el archivo
  slLinea := TStringList.Create;//Paar la ultima linea
  slFileNuevo := TStringList.Create;
  
  slLinea.Delimiter:='|'; //Delimitador para que lo use DelimitedText
 
  slFile.LoadFromFile('archivo.txt'); //cargamos el archivo
 
  slLinea.DelimitedText:=slFile[slFile.Count-1];//Cargamos la ultima línea y lo separa en slLinea 
  
  //si lo que se tiene en la ultima posición es igual a Str
  if slLinea[slFile.Count-1]<>Str then
   begin
     for i:=1 to slFile.Count-1 do
       slFileNuevo.Add(slFile[i]); //Añadimos lo que teniamos anteriormente

     slFileNuevo.Add(str); //añadimos lo nuevo
 
     slFileNuevo.SaveToFile('Archivo.txt');
   end;
end;

Si lo que tienes en las lineas de tus archivos no tiene espacios en blanco, te funcionara bien, pero si lo tubieras necesitas colocar a True la función StrictDelimiter, lo malo es que esta función esta en un Delphi posterior a Delphi 7. Pero tenemos otra función ExtractStrings que lo puedes utilizar en vez del Delimiter y DelimiterText, esa función no te traera problemas y te separara también la linea en el StringList utilizando el delimitador que le pongas.

Saluditos

[Greco]

Empezado por Caro

Hola Greco, te sale el error porque te falta un parametro cuando llamas a tu función GetTex...

En el post anterior me equivoqué al escribir la funcion y me falto un parametro la funcion pero solo fue error de escritura del mensaje ya que en delphi tengo la funcion con los dos parametros necesarios, la cadena y el elemento de la cadena que necesito pero igual me sale el error, si lo pruebo a parte me funciona correctamente, por eso me imagino que debe crearse un conflicto a utilizarlo despues de haber creado el stringlist que utilizo para cargar y recorrer el archivo.

Empezado por Caro

...también puedes hacerlo utilizando StringList y sus funciones Delimiter y DelimiterText.
Si lo que tienes en las lineas de tus archivos no tiene espacios en blanco, te funcionara bien, pero si lo tubieras necesitas colocar a True la función StrictDelimiter, lo malo es que esta función esta en un Delphi posterior a Delphi 7...

Asi es, lo que tengo en las lineas contiene espacios en blancos (17:05:24|unas cuantas palabras).
Tambien tengo delphi 7

Empezado por Caro

...Pero tenemos otra función ExtractStrings que lo puedes utilizar en vez del Delimiter y DelimiterText, esa función no te traera problemas y te separara también la linea en el StringList utilizando el delimitador que le pongas...

Investigaré un poco sobre esta funcion, como se utiliza, etc para empesar a probar, cualquier duda posteo aqui.

Empezado por Caro

...Saluditos

Gracias por tu ayuda

[*Caro*]

Hola de nuevo, utilizando la función ExtractStrings ya no utilizarias ni delimiter ni delimiterText, te pongo un ejemplo.

Código Delphi [-]
 ExtractStrings(['|'], [' '], PCHAR(slFile[slFile.Count-1]), slLinea);

las líneas que puse en rojo en mi anterior codigo estarían demas, en vez de ellas utilizas este ultimo codigo.

Saluditos

[[maeyanes]]

Hola...

Greco, el error que tienes es por que la clase TStringList tiene un método llamado GetText el cual no recibe parámetros y al estar tu código dentro de un with..do, Delphi cree que estás tratando de llamar a ese método y no a tu función...

Así que tienes dos opciones, usar lo que te a recomendado Caro o cambiar el nombre de tu función GetText...


Saludos...

[Greco]

Empezado por maeyanes

Hola...

Greco, el error que tienes es por que la clase TStringList tiene un método llamado GetText el cual no recibe parámetros y al estar tu código dentro de un with..do, Delphi cree que estás tratando de llamar a ese método y no a tu función...

Así que tienes dos opciones, usar lo que te a recomendado Caro o cambiar el nombre de tu función GetText...


Saludos...

Muchas gracias maeyanes, me has salvado!!!!!, cambie el nombre de la funcion y ahora me funciona perfectamente, gracias nuevamente.

También agradecer a caro por la ayuda brindada, aunque me estaba costando adaptar el código a la funcion que ya tenia hecha por la inexperiencia que tengo .

Saludos.