Inhalt vom StringGrid speichern

marvin521993 · Beiträge: 172

Moderiert von Tino: Abgetrennt von Vokabelprogramm!! Welche Komponente??

ja ok es tut mir leid echt jetz sry
wie isn die eigenschaft um die zellen vom stringgrid zu speichern?

markieren

Delphi-Quelltext

1:
2:
3:
4:

If Opendialog1.execute Then
 begin
 Stringgrid1.?.savetofile(Savedialog1.filename);
end;

was muss ich anstatt dem fragezeichen einsetzen?

Lg
Marvin

Aya · Verfasst: Di 13.02.07 18:40

marvin521993 hat folgendes geschrieben:

was muss ich anstatt dem fragezeichen einsetzen

Rows[i]

_________________
Aya
I aim for my endless dreams and I know they will come true!

marvin521993 · Beiträge: 172

warum i ich hatte doch gar keine variable fest gelegt?
oder meintest du ich muss ne for schleife machen?
so dann etwa?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

If Savedialog1.Execute Then
 begin
  for i := 0 to 50 do
   begin
    Stringgrid1.Rows[i].SavetoFile(Savedialog1.Filename);
   end;
 end;

Lg
Marvin

Aya · Verfasst: Di 13.02.07 19:08

Um nochmal auf die sache mit dem selber nachdenken zurückzukommen...

Wenn du deinen kleinen Codeschnipsl da oben mal ausführst, wirst du merken das du in deiner Textdatei immer nur eine Zeile drinstehen hast... nach genauerer untersuchung des ganzen bemerkst du dann, dass das immer die letzte, bzw 50. Zeile ist.

Dann kommt der Teil mit dem nachdenken über die lösung des Problems, bzw zuerst des verstehens.
Die For-schleife speichert 50x eine Zeile in der Datei.. sie überschreibt sie dabei logischerweise jedesmal.

Was muß also getan werden? Alle Zeilen erstmal in eine Liste o.Ä. zusammenpacken -> TStringList

Und hier lass ich dich erstmal allein weiter überlegen, bzw -> F1 (Hilfe) oder Forensuche.

Aya

PS: Sorry, ich weiß klingt fies.. aber deine Fragen klingen für mich echt so als würdest du bevor du auch nur einmal die Suche oder die Hilfe bemühst sofort hier posten.. versuch mal selber auf lösungen zu kommen, und werd nich zu einem Copy&Paste "Programmierer"

_________________
Aya
I aim for my endless dreams and I know they will come true!

marvin521993 · Beiträge: 172

gut ich habe jetz überlegt wirklich

ich bin zu folgendem entschluss gekommen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

If Savedialog1.Execute Then
 begin
 daten := TStringList.create;
  for i := 0 to 50 do
   begin
    daten.Add(StringGrid1.Cells[i,1]);
    daten.Add(StringGrid1.Cells[i,0]);
   end;
   daten.SaveToFile(SaveDialog1.FileName);
 end;
 daten.Free;
end;

aber der speichert nur die ersten 2 zeilen vom stringgrid

kannst du mir sagen warum?

Lg
Marvin

Ps: Hab wirklich überlegt

Aya · Verfasst: Di 13.02.07 19:42

marvin521993 hat folgendes geschrieben:

kannst du mir sagen warum?

Spontan würd ich sagen weil du aus irgendeinem grund Rows[] durch Cells[] ersetzt hast

_________________
Aya
I aim for my endless dreams and I know they will come true!

Ehemaliges Mitglied Erhaltene Danke: 1

hallo marvin521993,

'n heisser Tip. den cursor auf das element platzieren und F1 drücken :-)

. ist schneller und meist auch kompetenter.

Aya · Verfasst: Di 13.02.07 20:46

Grenzgaenger hat folgendes geschrieben:

Ist schneller und meist auch kompetenter.

_________________
Aya
I aim for my endless dreams and I know they will come true!

Ehemaliges Mitglied Erhaltene Danke: 1

Aya hat folgendes geschrieben:

Grenzgaenger hat folgendes geschrieben:

Ist schneller und meist auch kompetenter.

tja aya, ist halt nicht jeder so 'ne koryphäe wie du :-)

vor allem braucht die hilfe nur 0,1 sekunden um auskunft zu geben, etwas hier ins forum zu hacken, geht da bedeutend langsamer...

marvin521993 · Beiträge: 172

kann mir nich einfach ejamdn sagen was hier dran falsch is??

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TFormvokverwalt.SpeedButton1Click(Sender: TObject);
var i : Integer;
begin
If Savedialog1.Execute Then
 begin
 daten := TStringList.Create;
  for i := 0 to 50 do
   begin
    daten.Add(StringGrid1.Cells[i,0]);
    daten.Add(StringGrid1.Cells[i,1]);
   end;
   daten.SaveToFile(SaveDialog1.FileName);
 end;
 daten.Free;

end;

ich möchte doch einfach nur wissen was hier dran falsch ist

aya das mit dem cols geht auch nich

Lg
Marvin

Chryzler · Beiträge: 1097 Erhaltene Danke: 2

marvin521993 hat folgendes geschrieben:

kann mir nich einfach ejamdn sagen was hier dran falsch is??

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TFormvokverwalt.SpeedButton1Click(Sender: TObject);
var i : Integer;
begin
If Savedialog1.Execute Then
 begin
 daten := TStringList.Create;
  for i := 0 to 50 do
   begin
    daten.Add(StringGrid1.Cells[i,0]);
    daten.Add(StringGrid1.Cells[i,1]);
   end;
   daten.SaveToFile(SaveDialog1.FileName);
 end;
 daten.Free;

end;

ich möchte doch einfach nur wissen was hier dran falsch ist

aya das mit dem cols geht auch nich

Lg
Marvin

Und StringGrid1.Cells[0, i] haste noch nicht ausprobiert?

Aya · Verfasst: Mi 14.02.07 17:39

marvin521993 hat folgendes geschrieben:

aya das mit dem cols geht auch nich

Vieleicht weil ich Rows und nich Cols geschrieben hab?

_________________
Aya
I aim for my endless dreams and I know they will come true!

marvin521993 · Beiträge: 172

ja mit rows aber auch nich ich brauche nur den fehler den ich da in der formel habe
und ich weiss ja auch nicht ob das richtig ist, was mir chryzler erzählt hat, da der compiler nich reagiert
[Fataler Fehler] Ausgabedatei 'C:\Dokumente und Einstellungen\Desktop\Delphi\Vokabelabfrager\Project1.exe' kann nicht erstellt werden

so ist der fehler
muss ich das programm nochmal ganz von neu machen?

Lg
Marvin

Aya · Verfasst: Mi 14.02.07 17:54

Das bedeutet einfach das die EXE Datei nicht erstellt werden kann... kann viele gründe haben:

- EXE Datei ist grad geöffnet = kann nicht überschrieben werden
- Keine schreibrechte im verzeichnis
- Verzeichnis existiert nicht
etc..

_________________
Aya
I aim for my endless dreams and I know they will come true!

marvin521993 · Beiträge: 172

ok es geht jetzt danke dir

aber leider geht das speichern immer noch nicht

och mann das kann doch nicht so schwer sein

Lg
Marvin

Aya · Verfasst: Mi 14.02.07 18:04

Wüsste nicht warum dashier nicht gehen sollte

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TFormvokverwalt.SpeedButton1Click(Sender: TObject);
var 
  i: Integer;
begin
  if Savedialog1.Execute then begin
    daten := TStringList.Create;
    for i := 0 to 50 do
      daten.Add(StringGrid1.Rows[i]);
    daten.SaveToFile(SaveDialog1.FileName);
    daten.Free;
  end;
end;

_________________
Aya
I aim for my endless dreams and I know they will come true!

Aya · Verfasst: Mi 14.02.07 18:26

F1 drücken...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TFormvokverwalt.SpeedButton1Click(Sender: TObject);
var 
  i: Integer;
begin
  if Savedialog1.Execute then begin
    daten := TStringList.Create;
    for i := 0 to 50 do
      daten.Add(StringGrid1.Rows[i].Text);
    daten.SaveToFile(SaveDialog1.FileName);
    daten.Free;
  end;
end;

_________________
Aya
I aim for my endless dreams and I know they will come true!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme