claro!
En ocasiones he hecho algo como esto:
Código Delphi
[-]
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);
S := Trim(S);
end
else begin
Result := S;
S := '';
end;
end;
var
Lineas: TStringList;
Linea, Campo1, Campo2: string;
begin
Lineas := TStringList.Create;
try
Lineas.LoadFromFile('c:\datos.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;
Quizás compile y quizás funcione... lo he escrito acá mismo, pues no tengo delphi a mano ahora, pero espero te de una idea.
Hasta luego.