TÉMA:

procedure TFlogger.BKeresClick(Sender: TObject); 
var iCol : integer ; 
begin 
  Dmodul.Zlog.First; 
  while not Dmodul.Zlog.EOF do 
  begin {AMÍG NINCS VÉGE A FÁJLNAK}
    SG1.RowCount := Dmodul.Zlog.FieldCount-1; {SOROK SZÁMA = MEZÖK SZÁMA-1... DE MIÉRT?} 
    for iCol := 0 to SG1.ColCount do {ANNYISZOR ISMÉTELED AHÁNY OSZLOP (mező) VAN}
    begin {EGY SOR ADATAINAK BEOLVASÁSÁT}
  SG1.Cells[0,icol] := Dmodul.Zlog.FieldByName('Serialnum').AsString; 
  SG1.Cells[1,icol] := Dmodul.Zlog.FieldByName('Partnum').AsString; 
  SG1.Cells[2,icol] := Dmodul.Zlog.FieldByName('Name').AsString; 
  SG1.Cells[3,icol] := Dmodul.Zlog.FieldByName('Station').AsString; 
  SG1.Cells[4,icol] := Dmodul.Zlog.FieldByName('Component').AsString; 
  SG1.Cells[5,icol] := Dmodul.Zlog.FieldByName('Fault').AsString; 
  SG1.Cells[6,icol] := Dmodul.Zlog.FieldByName('Employee').AsString; 
  SG1.Cells[7,icol] := Dmodul.Zlog.FieldByName('Date').AsString; 
  SG1.Cells[8,icol] := Dmodul.Zlog.FieldByName('state').AsString; 
  Dmodul.Zlog.Next; 
  end; 
  end; 
end;

procedure TFlogger.BKeresClick(Sender: TObject); 
var i : integer ; 
begin 
  Dmodul.Zlog.First; 
  i:=0;{ÜRES}
  while not Dmodul.Zlog.EOF do 
  begin {AMÍG NINCS VÉGE A FÁJLNAK A KÖVETKEZÖ SOR ADATAINAK BEOLVASÁSA}
  Inc(i);{MINDIG ANNYI A MENNYI AMENNYI}
  SG1.Cells[0,i] := Dmodul.Zlog.FieldByName('Serialnum').AsString; 
  SG1.Cells[1,i] := Dmodul.Zlog.FieldByName('Partnum').AsString; 
  SG1.Cells[2,i] := Dmodul.Zlog.FieldByName('Name').AsString; 
  SG1.Cells[3,i] := Dmodul.Zlog.FieldByName('Station').AsString; 
  SG1.Cells[4,i] := Dmodul.Zlog.FieldByName('Component').AsString; 
  SG1.Cells[5,i] := Dmodul.Zlog.FieldByName('Fault').AsString; 
  SG1.Cells[6,i] := Dmodul.Zlog.FieldByName('Employee').AsString; 
  SG1.Cells[7,i] := Dmodul.Zlog.FieldByName('Date').AsString; 
  SG1.Cells[8,i] := Dmodul.Zlog.FieldByName('state').AsString; 
  Dmodul.Zlog.Next; 
  end; 
  SG1.RowCount:=i;{ENNYI AZ ANNYI}
end;

procedure TFlogger.BKeresClick(Sender: TObject);
var iCol : integer ;
begin
  Dmodul.Zlog.First;
  while not Dmodul.Zlog.EOF do
  begin
    SG1.RowCount := Dmodul.Zlog.FieldCount-1;
    for iCol := 0 to SG1.ColCount do
    begin
  SG1.Cells[0,icol] := Dmodul.Zlog.FieldByName('Serialnum').AsString;
  SG1.Cells[1,icol] := Dmodul.Zlog.FieldByName('Partnum').AsString;
  SG1.Cells[2,icol] := Dmodul.Zlog.FieldByName('Name').AsString;
  SG1.Cells[3,icol] := Dmodul.Zlog.FieldByName('Station').AsString;
  SG1.Cells[4,icol] := Dmodul.Zlog.FieldByName('Component').AsString;
  SG1.Cells[5,icol] := Dmodul.Zlog.FieldByName('Fault').AsString;
  SG1.Cells[6,icol] := Dmodul.Zlog.FieldByName('Employee').AsString;
  SG1.Cells[7,icol] := Dmodul.Zlog.FieldByName('Date').AsString;
  SG1.Cells[8,icol] := Dmodul.Zlog.FieldByName('state').AsString;
  Dmodul.Zlog.Next;
  end;
  end;
end;

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    fTxtFile : TStringList;
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  fTxtFile:=TstringList.Create;
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  fTxtFile.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  if OpenDialog1.Execute then
  begin
    fTxtFile.LoadFromFile(OpenDialog1.Filename);
  end;
  for i:=0 to fTxtFile.Count-1 do
  begin
    if StringGrid1.RowCount <= i then StringGrid1.InsertColRow(False,i);
    StringGrid1.Rows[i].CommaText:=fTxtFile[i];
  end;
end;
 
end.

1,2,5,7,78,45
5,89,65,34,25,77
15,2,66,55,44,33
1,2,5,7,78,45
5,89,65,34,25,77
15,2,66,55,44,33
1,2,5,7,78,45
5,89,65,34,25,77
15,2,66,55,44,33
1,2,5,7,78,45

procedure TForm1.MenuItem8Click(Sender: TObject);
begin
  if Openstepfile.Execute then
   begin
     ASSIGNFILE(myfile, Openstepfile.FileName);
     RESET(myfile);
    while not EOF(myfile) do
     begin
     READLN(myfile,fileneve);
     ShowMessage(fileneve);
     end;
    CLOSEFILE(myfile);
   end;
end;

var
  C,I,J:Integer;
  S:string;
begin
  for I:=0 to Form^.ComponentCount-1 do begin { végig megyünk a vezérlőkön }
 
    if IsPublishedProp(Form^.Components[I],'Caption')then begin{ ha elérhető a .Caption property akkor az 'Új szöveg' kerül bele }
      S:=Ini.ReadString(Form^.Name,Form^.Components[I].Name+'.Caption',GetPropValue(Form^.Components[I],'Caption',True))); { beolvasás .ini fájlból (IniFiles unit) fájlból }
      SetPropValue(Form^.Components[I],'Caption',S); { beállítás }
    end;
 
    if IsPublishedProp(Form^.Components[I],'Hint')then begin{ ha elérhető a .Hint propertije akkor az 'Új tipp' kerül bele }
      S:=Ini.ReadString(Form^.Name,Form^.Components[I].Name+'.Hint',GetPropValue(Form^.Components[I],'Hint',True))); { beolvasás .ini fájlból (IniFiles unit) fájlból }
      SetPropValue(Form^.Components[I],'Hint',S); { beállítás }
    end;
 
    if IsPublishedProp(Form^.Components[I],'Lines')then begin{ ha elérhető a .Lines property akkor... }
      (Form^.Components[I] as TMemo).Clear; { sorok kiürítése }
      C:=Ini.ReadInteger(Form^.Name,Form^.Components[I].Name+'.LineCount',0); { sorok számának beolvasása .ini fájlból (IniFiles unit) fájlból }
      for J:=0 to C-1 do begin { sorok beolvasása 'for' ciklissal }
        S:=Ini.ReadString(Form^.Name,Form^.Components[I].Name+'.Line'+IntToStr(J),'') { egy sor beolvasása .ini fájlból (IniFiles unit) fájlból (alapértelmezetten a sor üres) }
        (Form^.Components[I] as TMemo).Lines.Add(S); { egy 'Új sor' hozzáadása }
    end;
  end;
end;