Frage zu TStringLists

[DMonkey]

HI,ich habe ein problem bei einem meiner Programme und Würde mich über eine antwort freuen

Delphi-Quellcode:

procedure Hauptform1.Speichern1Click(Sender: TObject);
var  Zeilen, Spalten, i, j: Integer;
    Tabelle: TStringList;
begin

savedialog.execute;
  // Stringliste erzeugen
  Tabelle := TStringList.Create;
  Zeilen  :=  stringgrid1.colcount;
  Spalten :=  stringgrid1.rowcount;
  for i := 0 to Zeilen-1 do
  begin
    for j := 0 to Spalten-1 do
    begin
     Tabelle.Strings[i*Spalten+j] := StringGrid1.Cells[j,i] ;
    end;
  end;
  Tabelle.savetoFile (savedialog.filename+'.tab');
end;

er sagt mir dann immer wenn ich dan button klicke
"Listenindex überschreitet das Maximum(0)" wie kann ich das Maximum höher setzen


,Danke im Vorraus

[Matze]

Hallo, herzlich Willkommen in der DP!

Wenn du eine neue TStringList erzeugst ist diese leer und kannst somit keine einzelnen Zeilen ansprechen.

Neue Einträge kannst du so hinzufügen:

Tabelle.Add(StringGrid1.Cells[j,i]); Und vergiss nicht, die StringList wieder freizugeben:

Delphi-Quellcode:

Tabelle := TStringList.Create; 
try
  // dein Code ...
finally
  FreeAndNil(Tabelle);
end;

Und nochwas: Wenn man bei deinem Speicherdialog auf "Abbrechen" klickt, dann knallt's.

So ist es richtig:

Delphi-Quellcode:

if SaveDialog.Execute then
   // Speichern

Grüße, Matze

[DeddyH]

Weil ich heute mal meinen sozialen Tag habe:

Delphi-Quellcode:

procedure Hauptform1.Speichern1Click(Sender: TObject);
var Zeilen, Spalten, i, j: Integer;
    Tabelle: TStringList;
begin
  if savedialog.execute then
    begin
      // Stringliste erzeugen
      Tabelle := TStringList.Create;
      try
        Zeilen  :=  stringgrid1.colcount;
        Spalten :=  stringgrid1.rowcount;
        for i := 0 to Zeilen-1 do
          begin
            for j := 0 to Spalten-1 do
              begin
                Tabelle.Add(StringGrid1.Cells[j,i]);
              end;
          end;
        Tabelle.savetoFile(savedialog.filename+'.tab');
      finally
        Tabelle.Free;
      end;
    end;
end;

[DMonkey]

Danke man ,du hast mir echt geholfen

[Matze]

Und ich erkläre es extra ausführlich.

*mit Deddy auf Kriegsfuß steh'*

[Andreas L.]

Nur eine kleine Anmerkung:

Delphi-Quellcode:

...
  Zeilen  :=  stringgrid1.colcount;
  Spalten :=  stringgrid1.rowcount; 
...

Row heißt Zeile
Column heißt Spalte

Du hast also die Variablen vertauscht

[DeddyH]

Zitat:

Zuletzt bearbeitet von Matze am 02.09.2009, 19:56, insgesamt 5-mal bearbeitet.

Meinst Du, ich schau immer wieder zwischendurch nach, was Du nun schon wieder getippt hast?

[himitsu]

Zitat:

savedialog.filename+'.tab'

warum läßt du das '.tab' nicht im SaveDialog mit angeben?

( .DefaultExt = 'tab' und schon wird dieses automatisch angehängt, wenn keine Extention angegeben wurde und .Filter nicht vergessen )