Arquivo Txt no Delhi 5

Delphi

18/04/2005

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


Julianaleme

Julianaleme

Curtidas 0

Respostas

Kapak

Kapak

18/04/2005

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;



GOSTEI 0
POSTAR