Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: geöffnete CSV bearbeiten

  Alt 20. Aug 2007, 13:38
Hallo,

TStringList hat eine LoadFromFile Methode,
du musst nur den Separator richtig einstellen.

Und zum Speichern aus einem StringGrid kannst du du einfach TextFile benutzen.

Delphi-Quellcode:
var
  TxtFile: TextFile;
  sLine: String;
  iCol, iRow: Integer;
begin
  AssignFile(TxtFile, 'c:\bla.txt');
  Rewrite(TxtFile);

// try finally selber machen

  for iRow:= 0 to StrGrid.WorCount-1 do
  begin
    sLine:= '';

    for iCol:= 0 to StrGrid.ColCount-1 do
    begin
      if iCol>0 then sLine:= sLine+';';
      sLine:= sLine+StrGid.Cells[iCol,iRow];
    end;
   
    Writeln(TxtFile, sLine);
  end;

  CloseFile(TxtFile);
end;

Heiko
Heiko
  Mit Zitat antworten Zitat