String Grid speichern nur mit Fehler

[IronBytes]

Hallo

Entschuldigung das ich mich erst jetzt melde. Liege mit Corona flach und kann mich derzeit nicht immer aufraffen am Project weiter zu wurschteln.
Ich benutze die Stringgrid (die nicht sichtbar ist) zum Datenspeichern. Bisher hatte ich nie Probleme da ich ja keine Memofelder reinbastelte. Das Project dient
nur einem, mir selbst. Es ist ohne weiterem Nutzen. Eine Datenbank wollte ich nicht, was vermutlich einfacher geht (Zumindest aus meiner Erinnerung heraus), aber was
auch schlechte Eigenschaften hervorruft wenn jene auch mal kaputt geht. Wir arbeiten hauptsächlich mit Datenbanken berufsbezogen, und es kommt nicht selten vor das es eine verhacktstückelt (Access).
Ein reines Textfile kann ich händisch wieder reparieren. Wenn ich das nun richtig verstehe, geht es so einfach nicht.
Ich werde jetzt mal versuchen jeden Datensatz mit einer Soderzeichencombi zu trennen, und hoffen das ich es wieder zusammenbekomme.

Grüße Thomas

[IronBytes]

Anbei mal die Oberfläche

[IronBytes]

Ich versuche nun immer zwischen den Feldern ein Absatzzeichen einzufügen, um es danach wieder besser aufzusplitten.

Delphi-Quellcode:

var
  F: TStringList;
  x1,y1: Integer;
begin

  F := TStringList.Create;
  SaveDialog1.Filter := 'Datenbank (*.dbs)|*.DBS';
  if savedialog1.Execute then begin;

  try
    //F.Add(IntToStr(StringGrid1.RowCount));
    //F.Add(IntToStr(StringGrid1.ColCount));
    for y1 := 1 to 500 do begin;

    for x1 := 1 to 70 do begin;

      F.Add(StringGrid1.cells[x1,y1]);
      F.Add('#Q#Q');
  end;
  end;



    F.SaveToFile(savedialog1.FileName+'.dbs');
  finally
    F.Free;
  end;
  end;
  end;

[himitsu]

PS, da es wie eine Datenbank klingt (dbs),
warum dann nicht "wirklich" Eine benutzen?

* z.B. SQLite via TSQLQuery bzw. TFDQuery

* oder TLocalSQL oder TDataSetProvider gegen eine Objekt/Record-Liste

* oder einfach TClientDataSet bzw. TSimpleDataSet (die kennen auch ein SaveToFile/LoadFromFile)


da dran dann normale TDBEdit, TDBComboBox, TDBMemo oder auch ein TDBGrid usw.




Und warum überhaupt eine unsichtbare visuelle Komponente, um interne Daten zu speichern?

Nicht nur die unnötig komplizierte/datenhungrige/langsame Datenhaltung,
sondern dann auch nochmal sinnlos manuell das alles mit den Eingabe-Controls (Edits) zu synchronisieren.

Für sowas nimmt man eben möglivhst passende Datenhaltungs-Komponenten,
oder von mit aus auch eine ObjektListe oder verschachtelte StringListen
oder z.B. eine TMemIniFile (Row-Index = Section-Name und Col-Index/Name = Value-Name)
oder XML, JSON usw.
oder ...

[Delphi.Narium]

Zitat von IronBytes:

und es kommt nicht selten vor das es eine verhacktstückelt (Access)

Das betrifft aber nur Access und keine Datenbanken. Sowas ist mir noch nie vorgekommen, weder Oracle, noch PostGres, Ingres, MySQL, MSSQL, FireBird, Interbase, selbst dBase und Paradox sind da verlässlicher.

Ansonsten könnte man ja auch noch 'nen ClientDataSet nutzen, kann damit auch alle datensensitiven Komponenten nutzten. Speichern kann man mit ClientDataSet.SaveToFile und laden mit ClientDataSet.LoadFromFile.

https://www.tek-tips.com/viewthread.cfm?qid=1523881

Es geht also auch ohne Datenbank deutlich einfacher als mit 'nem unsichtbaren StringGrid.

[haentschman]

Moin...
...ein paar Fragen:

1.

Zitat:

Wir arbeiten hauptsächlich mit Datenbanken berufsbezogen

Wer ist wir? Die Firma, 20 Entwickler?
2.

Zitat:

Das Project dient nur einem, mir selbst

Machst du Programmieren hauptberuflich in der Firma? (XE8)
3.

Zitat:

Ein reines Textfile kann ich händisch wieder reparieren

...was ist wenn man nichts reparieren muß? Vernünftige Datenbank oder XML?
4.

Zitat:

Anbei mal die Oberfläche

...die Oberfläche repräsentiert EINEN Datensatz? Was ist, wenn zu den Katzen ein Tiger (Spaß ) hinzukommt?
5.

Zitat:

Ich benutze die Stringgrid (die nicht sichtbar ist) zum Datenspeichern

Willst du über den Tellerand schauen und es richtig lernen? Hast du Zeit und den Willen dazu?


PS:

Zitat:

und es kommt nicht selten vor das es eine verhacktstückelt (Access)

...Access ist ja auch keinen Datenbank.

[IronBytes]

Hallo

Bin ja jetzt vor Gericht

1.
Zitat:
Wir arbeiten hauptsächlich mit Datenbanken berufsbezogen
Wer ist wir? Die Firma, 20 Entwickler?

Es gibt keine Entwickler sondern nur Facharbeiter für Fördertechnik (Elektriker,Mechaniker,Büroleute (Keine Programierer))

2.
Zitat:
Das Project dient nur einem, mir selbst
Machst du Programmieren hauptberuflich in der Firma? (XE8)

Nur für mich, früher mehr für andere aber immer nur so.

3.
Zitat:
Ein reines Textfile kann ich händisch wieder reparieren
...was ist wenn man nichts reparieren muß? Vernünftige Datenbank oder XML?

Wie gesagt ich wollte es einfach mit einem Textfile.

4.
Zitat:
Anbei mal die Oberfläche
...die Oberfläche repräsentiert EINEN Datensatz? Was ist, wenn zu den Katzen ein Tiger (Spaß ) hinzukommt?

Man spricht auch von einer sogenanten Laufkatze. Sie fährt an der Kranbrücke und beinhaltet das Hubwerk oder Hebezeug.

5.
Zitat:
Ich benutze die Stringgrid (die nicht sichtbar ist) zum Datenspeichern
Willst du über den Tellerand schauen und es richtig lernen? Hast du Zeit und den Willen dazu?


Ich möchte nur dieses kleine Projekt für mich machen und es dieses Jahr abschließen. Es hat keinen Nutzen sondern dient nur zum Auffrischen meines Kopfes. Besser geht es immer

PS:
Zitat:
und es kommt nicht selten vor das es eine verhacktstückelt (Access)

[IronBytes]

Hallo Zusammen

Weis jemand wie ich die Strings wieder untereinander ins Memofeld bekomme ? Danke im Vorfeld.
Einzelne Zeilen gehen gut. nur das aneinanderreihen von Memozeilen geht warum auch immer nicht.

Grüße von der schwäbischen Alb.

Delphi-Quellcode:

procedure TForm2.BitBtn6Click(Sender: TObject);

 var
  F: TStringList;
  x1,y1,a,ie: Integer;
  strV: string;


begin
OpenDialog1.Filter := 'Datenbank (*.dbs)|*.DBS';
if Opendialog1.Execute then begin;
  strV:='';
  a:=-1;
  F := TStringList.Create;
  try
    F.LoadFromFile(opendialog1.FileName);
    for y1 := 1 to 499 do begin;

    for x1 := 1 to 70 do begin;
    a:=a+1;
    edit28.text:=inttostr(a);

repeat
     strV:=strV+F.Strings[a];

     a:=a+1;
until F.Strings[a]='#Q#Q';


stringgrid1.cells[x1,y1]:= strV ;
 strV:='';
        end;


       end;
  finally
    F.Free;
     end;
   end;
 end;