Probleme mit Speichern...

[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.

[p80286]

Nicht nur bei Dir:

Delphi-Quellcode:

procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
z:integer;
begin
  if savedialog1.Execute=true then
    begin
    assignfile(Textdatei,savedialog1.FileName);
{--}Rewrite(TestDatei); {-------------------------------------}
      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;

Gruß
K-H

[DeddyH]

Ja, ich weiß, ich hatte ja den Originalcode übernommen und lediglich geändert. Dabei ist mir eben nicht aufgefallen, dass die Datei gar nicht angelegt wird.

[Deep-Sea]

Man könnte ja auch einfach Streams nutzen, anstatt diese Relikte wie AssignFile und Co.


@Sir Rufo:
Das hatte ich ja schon erwähnt