lazarus - importar archivo .txt a grilla
 

Buenas, estoy comenzando a utilizar lazarus, y necesito ayuda sobre un tema, espero que puedan ayudarme.
Estoy teniendo un inconveniente al momento de realizar un programa, donde tengo un Archivo .txt con registros donde los datos están separados por ";" y necesito volcarlos en una Grilla, separando cada dato.
Tendrían algún ejemplo de código, ya que la verdad soy nuevo en esto.
Aguardo sus respuestas..
Gracias de antemano !!!

Hola alebritez, bienvenido a los foros de Club Delphi :)

Como es costumbre con los iniciados te invitamos a leer nuestra Guía de estilo.

El ejemplo,

Código Delphi [-]
...
function CharCount( const ch: Char; const st: string ): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length( st ) do
    if st[i] = ch then Inc( Result );
end;

procedure FileToGridWithFixed( const aFileName: string; Grid: TStringGrid );
var
  TS: TStrings;
  i : Integer;
begin
  TS := TStringList.Create;
  try
    TS.LoadFromFile( aFileName );
    Grid.RowCount := Grid.FixedRows + TS.Count;
    Grid.ColCount := Grid.FixedCols + CharCount( ';', TS[0] ) + 1;
    for i := 0 to TS.Count-1 do
    begin
      TS[i] := StringOfChar( ';', Grid.FixedCols ) + TS[i];
      Grid.Rows[Grid.FixedRows + i].Delimiter     := ';';
      Grid.Rows[Grid.FixedRows + i].DelimitedText := TS[i];
    end;
  finally
    TS.Free;
  end;
end;

Modo de uso:

Código Delphi [-]
...
begin
   FileToGridWithFixed( 'ARCHIVO.TXT', StringGrid1 );
end;

Saludos :)

¿Grilla? :confused: