String Grid speichern nur mit Fehler

[IronBytes]

Hallo Ihr Zwei

Vielen lieben Dank für eure Antworten. Hier muß ich mal nochmal in mich gehen und probieren was noch möglich ist. Es ist eigentlich der letzte große Posten.
Ob ich mich mal etwas tiefer in die Programmierung einarbeiten soll, das sagt mir die Zeit. Habe ja auch noch mein Haus zu richten.
Aber Programmieren macht halt auch Spaß und hält das Hirn fit.
Probiere mal eure ansätze durch und gebe Bescheid.

Grüße und Danke
Thomas

[Rolf Frei]

Du musst vor dem Speichern, im Memo-Text CR/LF (#13#10) mit etwas anderem ersetzen (siehe z.B. Post von QuickAndDirty). Beim Laden machst du das umgekehrte und wandelst die Zeichenfolge, die du für CR/LF genutzt hast, wieder in die richtige CR/LF (#13#10) Zeichenfolge um.

[IronBytes]

Meine derzeitige Lösung sieht so aus:
Der Vorgang geht natürlich zu lange, was die Progessbar auch anzeigt, da es sich auch um 35000 Einträge handelt. Wartezeit beim Laden sind ca 3 Sekunden. Ist nicht Super aber ich hatte auch nichts erwartet.
Zum Darstellen habe ich mir eine Memo4 unsichtbar auf das Formfeld geholt und von dort aus wieder eingelesen.

Ich lege das hier mal ab als Beispiel wie man es nicht macht

Delphi-Quellcode:

var
  F: TStringList;
  x1,y1,a,ie,bV,aha,z: 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 500 do begin;
     progressbar1.Position:=Y1;
     for x1 := 1 to 70 do begin;
     a:=a+1;
     edit28.text:=inttostr(a);
     bv:=1;
     memo4.Lines.Clear;
repeat
     strV:=strV+F.Strings[a];
     memo4.Lines.add (F.Strings[a]);
     bv:=bv+1;
     a:=a+1;
until F.Strings[a]='#Q#Q';

if  bv >2 then stringgrid1.Cells[x1,y1]:=memo4.text

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


       end;
  finally
    F.Free;
     end;
   end;
 progressbar1.Position:=0;

[Rolf Frei]

Für was brauchst du eigentlich das Memo? Zeigst du damit irgendwas an oder ist das nur für diese Routine? Was du damit in deinem Code machst, ist unsinnig und sehr langsam. Dann hast du vermutlich nicht verstanden, was wir mit "Ersetzen von CR/LF" genau meinen. Ich nehme an, du hast das mit dem "#Q#Q" versucht zu steuern oder ist das was anderes? Gehe ich richtig der Annahme, dass du da pro Gridzelle eine Zeile im File willst? Das folgende Beispiel basiert auf diese Annahme.

Du weisst sicher in welchen Spalen dein Memo drin ist oder? Dann musst du diese Spalte speziell behandeln wie im foglenden Beispiel. Beim Speicher musst du genau das umgekehrte machen. Aber achtung dieer Ansatz ist generell sehr schlecht und du wirst grosse Probleme bekommen, wenn das dein Grid mal eine anderen Aufbau bekommen soll. Dann passen deine Dateien nicht mehr zum Grid und sind wertlos.

Hier mal ein Beispiel wie du es sinnvoler machen kannst:

Delphi-Quellcode:

procedure LoadData;
var
  F: TStringList;
  x1,y1,a: Integer;
  strCell: 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 500 do
      begin;
        progressbar1.Position:=y1;

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

          strCell := F.Strings[a];
          { In Spalte 50 soll das Memo rein. Die Zeilen (Spalten), die wir beim Speichern von #13#10 (CR/LF)
            in '#13#10' (String) umgewandelt haben, müssen nun wieder in korrektet CR/LF zurückgewandelt werden. }
          if x1 = 50 then
            strCell := StringReplace(strCell, '#13#10', #13#10, [rfReplaceAll]);

          stringgrid1.cells[x1,y1]:= strCell;
        end;
      end;
    finally
      F.Free;
    end;
  end;
  progressbar1.Position:=0;
end;

Beim Speichern der Datei müsstest du die mehrzeiligen Zellen (hier im Beispiel Spalte 50) wie folgt umwandeln, damit das Laden richtig funktioniert:

Delphi-Quellcode:

  { Beim Speichern der Spalte 50, müssen Zeilenumbruche (CR/LF) in Stringkonstanten umgewandelt werden }
  strCell := stringgrid1.cells[x1,y1]; 
  if x1 = 50 then
    strCell := StringReplace(strCell, #13#10, '#13#10', [rfReplaceAll]);
  ...

[Sinspin]

Zitat von IronBytes:

... da es sich auch um 35000 Einträge handelt. Wartezeit beim Laden sind ca 3 Sekunden.

Du veräppelst uns, oder?

35 TAUSEND Einträge.

Datenbank. Punkt.
Alles andere ist Irrsinn bei der Menge an Daten, egal ob privates Spielprojekt oder nicht!
Für kleine Projekte wo man nur eine Tabelle braucht nehme ich gerne eine Memtable. CSV zum speichern und laden. Macht die Memtable (KbmMemtable) selber.
Für alles andere gibt es sicher schöne schlanke embedded Lösungen. Ich habe bisher Absolute Database verwendet, das ist aber wohl vorbei das ist mir jetzt zu teuer!

[Rolf Frei]

Für ihn ist jede Gridzelle ein Datensatz, was natürlich Quatsch ist. Sein Grid hat 35'000 Zellen (500 Zeilen X 70 Spalten).

[himitsu]

Das TStringGrid ist dann intern auch mehrere StringListen, also pro Zeile eine TStringList und je Column Cell ein String.

Auch wenn es hier zum Glück "aktuell" geht, so ist es mit mehreren "Zeilen" je Cell (ListenZeile) eher als problematisch anzusehen.

Hier gleich mal ein gutes Beispiel, dass der Unterschied zwischen Daten-Komponente und GUI-Komponente schnell relevant sein kann.
Also TMemo (Memo.Lines = TMemoStrings) versus TStringList :

* das Memo speichert eigentlich alles in einem Stream ... also quasi in .Text, was "ein" String ist
* übergibt man einem Lines[i] einen mehrzeiligen String, dann
* * wird das in mehrere Zeilen aufgetrennt (nachfolgende Zeilen verschieben sich)
* * man muß aufpassen welche Zeilenumbrüche man benutzt, denn #13#10, #10 und #13, aka CRLF, LF und CR, werden vom Memo unterschiedlich behandelt
* * ändert man eine Line (egal ob mehrzeilig oder nicht), wird der komplette Stream und womöglich auch die ganze Speicherverwaltung umgeschrieben, wenn sich der gesamte Stream/String sich ändert
* * und bei vielen Zeilen / größeren Änderungen wird das TMemo extrem unperformant

* bei der TStringList dagegen ist/bleibt jede Line ein eigener String, auch wenn Mehrzeiliges zugewiesen wird.
* aber beim Zugriff .Text wird dann alles wieder zu einem String und die Lines trennen sich auf, vor allem auch beim SaveToFile/LoadFromFile

[Sinspin]

Zitat von Rolf Frei:

Für ihn ist jede Gridzelle ein Datensatz, was natürlich Quatsch ist. Sein Grid hat 35'000 Zellen (500 Zeilen X 70 Spalten).

Jetzt verstehe ich.
Es würde sich trotzdem lohnen auf eine Memorytable / ClientDataset. Schon alleine der 70 Spalten wegen die aktuelle alle mit einem Index angesprochen werden.
Da mal was hinzuzufügen oder zu entfernen macht keinen spass.
Außerdem sind richtige Datentypen viel schöner als alles in Strings und dauernd zu konvertieren.
Und wenn man mal suchen oder filtern muss, wozu soll man sich die Mühe machen um alles selber zu implementieren?

[IronBytes]

Hallo Jungs

Erst einmal vielen lieben Dank für Eure Hilfestellungen. Wie ich bereits geschrieben habe ist das was ich gemacht habe nicht zur Nachahmung gedacht gewesen.
Meine Idee war einfach ein bischen das Gehirn in Wallung zu bringen. Das das was ich gemacht habe schon beim programmieren mich selbst zum zweifeln gebracht hat lass ich mal außen vor.

Meine Maske ist im Anhang:
Unsere Maske in der Firma mit Access sieht ähnlich aus jedoch nur mit einem Hubwerk (Lauf-Katze). Etwa 5 % der Anlagen habe aber zwei oder mehr "Katzen".
Mein Nachbar ist von Beruf Programmierer und hatte auch einen anderen Ansatz. Für mich jedoch wichtig war das ich den Code möglichst alleine erstellt bekomme. Was Gott sei Dank auch gelang.
Der Code ist allerdings sehr sehr schlecht, was ein weiterführen unsinig macht. Aber es geht. Mich hat es gefreut das ich es hinbekommen habe trotz meines Stroke vor etwa vier Jahren.

Nun jedoch nochmal den Nachtrag : Es sind 500 Datensätze mit maximal 70 Einträge. Dies ist nicht ungewöhnlich viel. Eine Firma die ich viel betreue hat knapp über 300 Krananlagen.
Eine Firma wo ich immer mal wieder arbeite hat über 1400 Krananlagen. Also die Zahl von 500 ist nicht weit hergeholt.


Jedoch habe ich nun eine Frage an Euch :

1. Kann ich mit Delphi XE8 Datenbankanwendungen schreiben ohne das ich die Datenbank selbst auf dem Rechner installiert habe (Access ....)?
2. Kann ich diese Datenbank auch auf einem Handy oder Tablet benutzen ?
3. Kann man mit XE8 auch Handy oder Tablet Anwendungen schreiben?
4. Ist es mit der derzeit Kostenlosen und freien Version Möglich so etwas zu machen (Datenbank,Handy und Tablet Version) ?


Nun wünsche ich Euch ein schönes Weihnachtsfest und ein paar schöne Tage mit Euren Liebsten.

Grüße Thomas


PS: Danke für die Hilfe und auch der Kritik