AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

stringgrid speichern

Ein Thema von Hartfrid Krause · begonnen am 8. Nov 2011 · letzter Beitrag vom 8. Nov 2011
 
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#2

AW: stringgrid speichern

  Alt 8. Nov 2011, 14:17
nur als Vorschlag, in der Formatierung könntest Du es auch per Copy und Paste in Excel einfügen

Delphi-Quellcode:
Procedure SaveStringGrid(sg:TStringgrid;const fn:String);
const
 C_ZBr=#13#10;
 C_Tab=#9;
var
  Y,X:Integer;
  s:String;
  sl:TStringlist;
 Function GetDelim:String;
  begin
    if x < (sg.Rows[Y].Count - 1) then Result := C_Tab else Result := C_ZBr;
  end;
begin
  for Y := 0 to sg.RowCount -1 do
     begin
     For x := 0 to sg.Rows[Y].Count - 1 do s := s + sg.Rows[Y][X] + GetDelim;
     end;
  sl:=TStringlist.Create;
  try
    sl.Text := s;
    sl.SaveToFile(fn);
  finally
    sl.Free;
  end;
end;


Procedure LoadStringGrid(sg:TStringgrid;const fn:String);
const
 C_ZBr=#13#10;
 C_Tab=#9;
var
  sl:TStringList;
  y,x:Integer;
begin
  sl:=TStringlist.Create;

  try
    sl.LoadFromfile(fn);
    sg.RowCount := sl.Count;
    for y := 0 to sl.Count -1 do
        begin
           sg.Rows[y].Text := StringReplace(sl[y],C_Tab,C_ZBr,[rfReplaceAll]);
        end;
  finally
    sl.Free;
  end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)

Geändert von Bummi ( 8. Nov 2011 um 14:33 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:07 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz