Ver Mensaje Individual
  #1  
Antiguo 14-07-2016
jaxx jaxx is offline
Registrado
NULL
 
Registrado: jul 2016
Posts: 2
Reputación: 0
jaxx Va por buen camino
manejo de grilla y text file en lazarus

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.

Última edición por Casimiro Noteví fecha: 14-07-2016 a las 01:06:18. Razón: Poner etiquetas de código
Responder Con Cita