Probleme mit Speichern...

[DeddyH]

Man kann das doch einfach in den jeweiligen Schleifenkopf einbauen, dann sollte es immer passen:

Delphi-Quellcode:

for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
  for j := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do

[Jumpy]

Das ist mal schlau gedacht.
Wieso fällt mir sowas nicht mal ein.

[DeddyH]

Man muss sich nur oft genug ärgern, dass man irgendeine Sache nicht bedacht hat, dann sucht man irgendwann automatisch nach solchen Lösungen

[p80286]

Zitat von DeddyH:

Nicht Text, sondern CommaText in Verbindung mit ein paar anderen Properties.

Ich hab

Code:

writeln(stringgrid.cells[a,b])

gesehen,das

Code:

+';'

ist mir ganz durchgerutscht. Da stimmt wohl einiges nicht.

Gruß
K-H

[Sataan93]

So ich hab es jetzt erstmal so umgestellt:

Delphi-Quellcode:

procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
z:integer;
begin
  if savedialog1.Execute=true then
    begin
    assignfile(Textdatei,savedialog1.FileName);
      for z:=1 to stringgrid1.RowCount-1 do
  writeln(Textdatei,stringgrid1.cells[0,z]+';'+stringgrid1.cells[1,z]+';'+stringgrid1.cells[2,z]+';'+stringgrid1.cells[3,z]+';'+stringgrid1.cells[4,z]+';'+stringgrid1.cells[5,z]+';'+stringgrid1.cells[6,z]+';'+stringgrid1.cells[7,z]+';');
    end
    else
      begin
      showmessage('Dateiladefehler! Ladevorgang abgebrochen.');
      end;
closefile(Textdatei);
end;

Das löst zwar mein Problem, aber sieht nich soo schick aus...

[Sir Rufo]

Wenn du schreibst for j := 0 to StringGrid1.ColCount -1 wann trifft wohl die Bedingung If j = StringGrid1.ColCount then zu?

[Sataan93]

ach ich gebs auf -.-
danke für eure Hilfe... ^^
das Programm geht garnichmehr ich lass es bleiben.
Soll mein lehrer mal drüber gucken, ich mach es nichmehr! ich bin keine Kämofernatur

[DeddyH]

Wie wäre es denn hiermit (Fehlerbehandlung bzgl. Dateioperationen weggelassen)?

Delphi-Quellcode:

procedure TForm1.BtSpeichernClick(Sender: TObject);
var
  Textdatei: textfile;
  z, i: integer;
  sl: TStringList;
begin
  if savedialog1.Execute then
    begin
      sl := TStringlist.Create;
      try
        Assignfile(Textdatei, savedialog1.FileName);
        for z := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
          begin
            sl.Assign(StringGrid1.Rows[z]);
            for i := 0 to StringGrid1.FixedCols - 1 do
              sl.Delete(0);
            sl.Delimiter := ';';
            sl.StrictDelimiter := true; //nur auf aktuellen Delphi-Versionen
            WriteLn(Textdatei, sl.DelimitedText);
          end;
        CloseFile(Textdatei);
      finally
        sl.Free;
      end;
    end;
end;

[p80286]

Ich denke da fehlt ein

Delphi-Quellcode:

 Assignfile(Textdatei, savedialog1.FileName);
 Rewrite(Textdatei);{--------------------------------------------------------!!!!}
 for z := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
....................
 CloseFile(Textdatei);

oder ein "Append" ?

Gruß
K-H

[DeddyH]

Stimmt, das ist mir völlig entgangen.