Probleme mit Speichern...

[Sataan93]

Also ich hab das problem, dass der mir die zeilen im String nicht so speichert wie sie gespeichert werden müssen: statt Name;Vorname;Adresse;
Name;Vorname;Adresse; macht es
Vorname;Adresse;Name;Vorname;Adresse..

Delphi-Quellcode:

procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
i,j: integer;
begin

  if savedialog1.Execute=true then
    begin
      assignfile (textdatei, savedialog1.FileName);
      rewrite (textdatei);
      for i:=1 to StringGrid1.Rowcount-1 do
        for j:=1 to StringGrid1.ColCount-1 do
          begin
            If j = StringGrid1.ColCount then
            writeln(textdatei,stringgrid1.cells[j,i]+';')
            else
           write (textdatei,stringgrid1.cells[j,i]+';');
          end;
     closefile (textdatei);
    end;
end;

ich finde nur den Fehler nicht...

[Jumpy]

Die Schleifen müssen bei 0 anfangen. Gehen ja auch bis .Count-1

[DeddyH]

Nicht unbedingt, es kommt darauf an, wie viele FixedRows/FixedCols vorhanden sind.

[Deep-Sea]

1. savedialog1.Execute=true Lass das "= True" weg.
2. j kann niemals gleich StringGrid1.ColCount sein, wenn die Schleife nur bis StringGrid1.ColCount - 1 geht.

[DeddyH]

Und wenn man jetzt noch weiß, dass TStringGrid.Rows vom Typ TStrings ist, dann kann man es sich viel leichter machen.

[Deep-Sea]

@DeddyH:
Ich zitiere dich mal: *Pff* viel zu einfach, da könnte ja jeder kommen

[DeddyH]

Zumindest habe ich nicht verraten, wie es geht

[p80286]

Zitat von Sataan93:

Also ich hab das problem, dass der mir die zeilen im String nicht so speichert wie sie gespeichert werden müssen: statt Name;Vorname;Adresse;
Name;Vorname;Adresse; macht es
Vorname;Adresse;Name;Vorname;Adresse..

Fehlt Dir vllt. der jeweils erste Name in einer Zeile? siehe #2
Gruß
K-H

edit:
etwa rows[i].text?

[DeddyH]

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

[Jumpy]

Zitat von DeddyH:

Nicht unbedingt, es kommt darauf an, wie viele FixedRows/FixedCols vorhanden sind.

Da ja der erste Name fehlt muss wahrsch. zumindest j=0 sein. Oft gibt es ja keine FixedCols.
FixedRows mit einer Kopfzeile ist da schon wahrscheinlicher, deswegen i=1 wahrsch. richtig...Es sei denn du merkst, dass dir ein Datensatz fehlt.

Deep-Sea's Einwand 2 in #4 würde erklären, wieso alles hintereinandergeknallt wird ohne Zeilenumbruch nach jedem Datensatz.