manejo de grilla y text file en lazarus

[jaxx]

Buenos días, tengo un problema intentando colocar la información de un textfile en una grilla en lazarus, tengo un text file con información guardada separada por ";", el problema es que no solo separa los datos por columnas cada vez que encuentra un ";", si no que también separa por columnas al encontrarse con espacios, por ejemplo si tengo la linea hello;hola mundo;bye en lugar de separarlo en 3 columnas lo separa en 4 columnas, aquí el código:

Código Delphi [-]
procedure Tform_busqueda.FormActivate(Sender: TObject);
var
  cont:tstrings;
  i:integer;
begin
  cont := tstringlist.create;
  try
    cont.loadfromfile('preg.txt');
    sgd_preg.rowcount := sgd_preg.fixedrows + cont.count;
    for i := 0 to cont.count-1 do
    begin
      cont[i] := stringofchar(';', sgd_preg.fixedcols ) + cont[i];
      sgd_preg.rows[sgd_preg.fixedrows + i].delimiter := ';';
      sgd_preg.rows[sgd_preg.fixedrows + i].delimitedText := cont[i];
    end;
  finally
    cont.free;
  end;
end;

gracias de antemano.

[ecfisa]

Hola jaxx, bienvenido a los foros de Club Delphi

Como a todos los que ingresan te invitamos a leer nuestra guía de estilo.

En referencia a tu consulta, intentalo de este modo:

Código Delphi [-]
...
var
  TS: TStringList;
  i : Integer;
begin
  TS := TStringList.Create;
  try
    TS.LoadFromFile('un_archivo.txt');
    StringGrid1.RowCount:= StringGrid1.FixedRows + TS.Count;
    for i := 0 to TS.Count-1 do
    begin
      StringGrid1.Rows[StringGrid1.FixedRows + i].StrictDelimiter := True;
      StringGrid1.Rows[StringGrid1.FixedRows + i].Delimiter := ';';
      StringGrid1.Rows[StringGrid1.FixedRows + i].DelimitedText := TS[i];
    end;
  finally
    TS.Free;
  end;
end;

Saludos

[jaxx]

Muchas gracias resuelto