Einzelnen Beitrag anzeigen

ssach

Registriert seit: 9. Dez 2002
Ort: schleiwenhaff
99 Beiträge
 
Delphi 6 Professional
 
#14
  Alt 11. Mai 2003, 03:21
hy,

also saven kannstdu ein stringrid in eine csv datei so :

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
R, C : integeR;
S : string;
begin
   if SaveDialog.Execute then
   begin
   for R := 0 to sg.RowCount - 1 do
      begin
         S := '';
         for C := 0 to sg.ColCount - 1 do
            S := S + sg.Cells[C,R] + ';';
         delete(S,length(S),1); //loescht den ueberfluessigen ;
         lb.Items.Append(S);
      end;

   lb.Items.SaveToFile('SaveDialog.Filename');
   end;
end;
die passende funtion zum laden hab ich gerade nicht bei hand aber schicke dir sie so schnel es geht!

cu
Greissen all d'Letzebuerger !!
  Mit Zitat antworten Zitat