Migrar Registros

[feliz-58]

Empezado por Casimiro Notevi

Pues eso es, un fichero TXT y encontrar palabras, en este caso una palabra de longitud 1.
Ya sabes, abres el TextFile y la conexión a la BD.

 Lees línea a línea hasta eof del fichero.
   Primer campo hasta el primer |
   Segundo campo hasta el segundo |
   Saltas un |
   Tercer campo hasta el siguiente |
   Guardas en la BD los campos
Finalmente, cierras el fichero.

Y listo.

Hasta ahora buscando solo tengo esto, que es para leer caracter por caracter, pero no se como hacer que haga lo que quiero.

Código Delphi [-]
var
Lista: TStringList;
cadena ,Registro,cadena2:string;
I, k, j: Integer;
begin
  Lista:= TStringList.Create;
  try
   Lista.LoadFromFile('c:\RNC.txt');
   for I := 0 to Lista.Count - 1 do
   begin
    cadena:= Lista.Strings[i];
    k:=Length(cadena);
    for j := 0 to k do
     begin
     cadena2:=Copy(cadena,j,1);
     if cadena2='|' then
      begin
       ShowMessage(Registro);
       Registro:='';
      end
     
      else
       begin
       Registro:=Registro + cadena2;
       end
 
    end;
 
   end;
  
  finally
    Lista.Free;
 end;

end;

Si supiera como hacerlo no estaría aquí...
Mi fuerte es la reparación de laptops, Lcd, plasmas, y alguna que otra cosa dentro de la electronica, no la elaboración de código, la elaboración de código lo hago porque me gusta aprender programación.