Leer una cierta cantidad de caracteres de una archivo.

[jachguate]

Empezado por Moparova

Hola, gracias por responder ya lo probe y me marca un error en la parte de

Campo1 := ExtraeSiguientePalabra(Linea);

El error es Too Many actual parameters.

No tengo delphi a mano... pero ¡no puede ser! ¿estas segura de eso?

[Moparova]

Si, ese es el error que me marca.

Este es el código tal cual lo puse, aun no he hecho la parte de insertarlo en la bd.



unit funcion;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
function ExtraeSiguientePalabra: string;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Lineas: TStringList;
Linea, Campo1, Campo2: string;
I:integer;

implementation
{$R *.DFM}

function ExtraeSiguientePalabra(var S: string): string;
begin
if pos(' ', S) <> 0 then
begin
Result := copy(S, 1, pos(' ', S) -1);
Delete(S, 1, length(Result) + 1);
//si cabe la posibilidad que haya mas de un espacio separando:
S := Trim(S);
end
else
begin
Result := S;
S := '';
end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
Lineas := TStringList.Create;
try
Lineas.LoadFromFile('c:\pruebaleer.txt');
for I:= 0 to Lineas.Count - 1 do
begin
Linea := Lineas[i];
Campo1 := ExtraeSiguientePalabra(Linea);
Campo2 := ExtraeSiguientePalabra(Linea);
//HacerAlgoConLosCampos(Campo1, Campo2);
end;
finally
Lineas.Free;
end;
end;
end.



Gracias

[[egostar]]

Otra opción

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  linea := 'UNO DOS TRES CUATRO CINCO SEIS SIETE OCHO';
  repeat
     indice := pos(' ',linea);
     dato := copy(linea,1,indice);
     delete(linea,1,indice);
     if (dato <> ' ') and
        (dato <> '') then begin
           memo1.Lines.Add(dato);
     end;
  until indice = 0;
  memo1.Lines.Add(linea);
end;

Salud OS