Dynamisches Array oder StringGrid

[stoffel_hessen]

Hallo Gemeinde,

ich habe mal eine Frage, in einem Programm verwende ich einige StringGrid Tabellen zum zwischenspeichern von Informationen, welche in Semikolon separierten Dateien vorliegen. Dies Dateien werden nur eingelesen und im Programm nicht verändert, auch werden die Daten nicht dargestellt. Es befinden sich pro Zeile zwischen 2 und 6 Werten, in einer Tabelle variiert die Länge aber nicht.
Ist es hier nun sinnvoller StringGrid Tabellen zu verwenden oder dynamische Arrays.

Danke für eure Meinungen und Unterstützungen.

Gruß Christopher

[h-elsner]

Ich persönlich würde eine TStringList benutzen. Mann kann leicht auf die einzelnen Werte zugreifen: Zeilen über den Index in der Liste 0..Count-1 und die Spalten über die Position im String:
Beispiel: Substring s, Zeile i, Spalte k

Code: Alles auswählen

s:=aStringList[i].Split([';'])[k];

Ist nur mein Geschmack, weil die StringListe eine Menge schöner Sachen mitbringt, wie z.B: aStringList.LoadFromFile, aber ob es die elegenteste Lösung ist, weiß ich nicht.

Gruß HE

[Winni]

Hi!

StringGrid ist schon das richtige Werkzeug.

Bringt so komfortable Proceduren wie

Code: Alles auswählen

 StringGrid.LoadFromCSVFile

sowie den problemlosen Zugriff auf die Zelle X/Y die hier Col/Row genannt werden.

Winni

[wp_xyz]

h-elsner, wunderst du dich warum der Text in deinem Beitrag plötzlich kursiv wird? Schaue dir den Rohtext nochmals genau an, und du wirst sehen, dass das genau da passiert, wo in deinem Text die StringList am Index i ausgelesen wird: aStringlist[ i]. Das i in eckigen Klammern ist aber der Startcode für kursive Schrift. Um das zu vermeiden, füge nach der öffnenden Klammer ein Leerzeichen ein, oder besser, weil das Code-fragment schon in einer eigenen Zeile steht, schließe den Code mit [ code]...[/ code] Tags ein:

Code: Alles auswählen

s:=aStringList[i].Split([';'])[k];

[theo]

Vielleicht bin ich altmodisch, aber ich würde nie eine visuelle Komponente für Non-Gui Aufgaben missbrauchen.
Ich empfehle TCSVDocument.

Code: Alles auswählen

uses csvdocument;

var CSVDoc:TCSVDocument;
begin
  CSVDoc:=TCSVDocument.Create;
  CSVDoc.Delimiter:=';';
  CSVDoc.LoadFromFile('/home/theo/test.csv');
  ShowMessage(CSVDoc.Cells[2,2]);     
  CSVDoc.Free;
end; 

[wp_xyz]

Vielleicht bin ich altmodisch, aber ich würde nie eine visuelle Komponente für Non-Gui Aufgaben missbrauchen.
Ich empfehle TCSVDocument.

Absolut! Aber auch TCSVDocument wäre mir zuviel Aufwand und Overhead, solange die Datei keine problematischen Fälle wie Zeilenumbruch oder Anführungs- oder Spaltentrennzeichen im Zell-Text o.ä. enthält. Für Quick-and-dirty reichen ein paar Zeilen mit TStringList. Ungetestet:

Code: Alles auswählen

type
  TDoubleArray2D = array of array of Double;
  
procedure ReadCSV(AFileName: String; out AData: TDoubleArray2D);
const
  SPALTEN_TRENNER = ';';   // Spalten-Trenner soll der Strichpunkt sein. Ggfs. anpassen.
var
  L: TStringList;
  i, j: Integer;
  sa: TStringArray;
begin
  L := TStringList.Create;   
  try
    L.LoadFromFile(AFileName);
    // Ich nehme an, in der 1.Zeilen stehen die Spaltenüberschriften, und das definiert die Zahl der Spalten
    sa := L[0].Split(SPALTEN_TRENNER);
    SetLength(data, L.Count, Length(sa));
    for i := 1 to L.Count-1 do   // i beginnt mit 1, denn die Spaltenüberschriften sollen nicht ins data-Array.
    begin
      sa := L[i].Split(SPALTEN_TRENNER);
      for j := 0 to Length(sa)-1 do
        data[i,j] := StrToFloatDef(sa[j], 999.999);
    end;
  finally
    L.Free;
  end;
end;

[theo]

Absolut! Aber auch TCSVDocument wäre mir zuviel Aufwand und Overhead, solange die Datei keine problematischen Fälle wie Zeilenumbruch oder Anführungs- oder Spaltentrennzeichen im Zell-Text o.ä. enthält. Für Quick-and-dirty reichen ein paar Zeilen mit TStringList. Ungetestet:

Das sehe ich nicht so. TCSVDocument ist eine saubere Lösung ohne wenn-und-aber, mit einem sehr vertretbaren Overhead.
Was dabei der "Aufwand" sein soll, erschliesst sich mir nicht. Einfacher geht's doch nicht?
Man muss heute auf einem PC ja nun wirklich nicht jedes Byte mehr einzeln zählen, sonst kommt man nirgends hin.
Auf gewissen Microcontrollern mag das noch sein.

[stoffel_hessen]

StringGrid ist schon das richtige Werkzeug.

Bringt so komfortable Proceduren wie

Code: Alles auswählen

 StringGrid.LoadFromCSVFile

Danke für deinen Beitrag, ich verwende StringGrid schon einige Jahre, wusste aber nicht das es diese Procedere gibt, hab diese immer selbst geschrieben.

[stoffel_hessen]

Vielleicht bin ich altmodisch, aber ich würde nie eine visuelle Komponente für Non-Gui Aufgaben missbrauchen.
Ich empfehle TCSVDocument.

Auch dir ein Dankeschön, dies kannte ich überhaupt nicht, ist auch eine Alternative

[theo]

Auch dir ein Dankeschön, dies kannte ich überhaupt nicht, ist auch eine Alternative

Bei CSV führen viele Wege nach Rom.
Man kann es auch ganz "modern" machen:

Code: Alles auswählen

unit Unit1;

{$mode objfpc}{$H+}
{$modeswitch nestedprocvars}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, lcsvutils, fgl;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

  TCSVList = specialize TFPGObjectList<TStringList>;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var CSVList: TCSVList;

  procedure CSVLineProc(Fields: TStringList);
  var SL: TStringList;
  begin
    SL := TStringList.Create;
    SL.Assign(Fields);
    CSVList.Add(SL);
  end;

begin
  CSVList := TCSVList.Create;
  LoadFromCSVFile('/home/theo/test.csv', @CSVLineProc, ';');
  ShowMessage(CSVList[1][0]);
  CSVList.Free;
end;

end.

Wenn man auf den vorhandenen Code zurückgreift, auch mit TCSVDocument, werden auch "merkwürdige" CSV Dateien korrekt gelesen.
Z.B Delimiter oder Zeilenumbrüche innerhalb von Anführungszeichen.

Bsp.

1eins;zwei;drei;vier
"2e
ins";"zw;ei";drei;vier
3eins;zwei;drei;vier
4eins;zwei;drei;vier

[BoraBora]

Hallo Theo,

benutze bisher auch TStringgrid und würde lieber mit Non-Gui-Elementen arbeiten,
daher blöde Frage: wo finde ich denn TCSVDocument?

Schon mal Danke an dieser Stelle.

BB

[stoffel_hessen]

wo finde ich denn TCSVDocument?

Hallo,

wie Theo oben 28. Jun 2022, 09:56 schon geschrieben hatte

Code: Alles auswählen

uses csvdocument;

oder habe ich deine Frage nicht verstanden?

[af0815]

daher blöde Frage: wo finde ich denn TCSVDocument?

Die Frage ist nicht blöd. So wie stoffel_hessen schieb, einfach in uses aufnehmen.

Der Grund, das Paket ist im fpc enthalten und zwar unter fpcsrc/packages/fcl-base/src/csvdocument.pas .

Der Artikel in der Wiki https://wiki.freepascal.org/CsvDocument dürfte nicht mehr ganz taufrisch sein, da dort als Ort noch das Lazarus-CCR angegeben ist und noch nicht, das es auch im fpc enthalten ist.

[BoraBora]

Vielen Dank af0815,

in der Zwischenzeit habe ich dann auch bemerkt, dass TCSVDocument in einem Package steckt...
Funktioniert jetzt.

BB

[stoffel_hessen]

Ich bin nun noch über ein kleines Problem mit StringGrid gestolpert, wie kann ich zwei csv-Dateien mit StringGrid.LoadFromCSVFile in die gleiche Tabelle laden, so das die Daten beider csv-Dateien zeitgleich im StringGrid stehen.
Das einfache laden der zweiten Datei überschreibt den Inhalt der ersten.