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
