Arquivo Txt no Delhi 5

Question

Boa Tarde,Gostaria de saber como fa�o para criar e salvar arquivo Txt de um programinha em delphi a partir de uma stringGrid ... exatamente como esta em colunas ...Att,Juliana...

Kapak · Answer

Ol�, o Delphi poderia ter implementado os m�todos SaveToFile e LoadFromFile no StringGrid, mas n�o o fez, ent�o o jeito � via c�digo.

procedure TForm1.SG_SaveToFile(sArq:String);
var i:Integer; SL:TStringList;
begin
  SL := TStringList.Create;
  for i := 0 to StringGrid1.ColCount-1 do
    SL.AddStrings(StringGrid1.Cols[i]);
  SL.SaveToFile(sArq);
  SL.Free;
end;
procedure TForm1.SG_LoadFromFile(sArq:String);
var i,iCol,iLin:Integer; SL:TStringList;
begin
  SL := TStringList.Create;
  SL.LoadFromFile(sArq);
  iCol := 0;
  iLin := 0;
  for i := 0 to SL.Count-1 do
  begin
    StringGrid1.Cols[iCol][iLin] := SL[i];
    if iLin < (StringGrid1.Rows[iCol].Count-1) then
      Inc(iLin)
    else
    begin
      Inc(iCol);
      iLin := 0;
    end;
  end;
  SL.Free;
end;

F�rum Arquivo Txt no Delhi 5 #277761