CSV Header auslesen und mit Stringgridspalte vergleichen

[Sir Rufo]

Zitat von NickD:

Es liegt eine ini-Datei vor deren Werte Die 2. Spalte des Stringgrids befüllen dh. ich muss die CSV mit den Werten der ini vergleichen?
mfg Nick

Jo.

Und wenn du das besonders schick und einfach haben möchtest, dann schreibst du dir ein Klassenkonstrukt wo du auf beide Varianten gleich zugreifen kannst

Delphi-Quellcode:

type
  TDataStruct = class abstract
  protected
    function GetHeader( Column : integer ) : string; virtual; abstract;
    function GetValue( Column : Integer; Row : Integer ) : string; virtual; abstract;
    function GetRowCount : Integer; virtual; abstract;
    function GetColumnCount : Integer; virtual; abstract;
  public
    property Header[Column:Integer] : string read GetHeader;
    property Value[Column, Row : Integer] : string GetValue;
    property RowCount : Integer read GetRowCount;
    property ColumnCount : Integer read GetColumnCount;
  end;

  TCSVDataStruct = class( TDataStruct )
  protected
    function GetHeader( Column : integer ) : string; override;
    function GetValue( Column : Integer; Row : Integer ) : string; override;
    function GetRowCount : Integer; override;
    function GetColumnCount : Integer; override;
  public
    constructor Create( ACSVFileName : string );
  end;

  TIniDataStruct = class( TDataStruct )
  protected
    function GetHeader( Column : integer ) : string; override;
    function GetValue( Column : Integer; Row : Integer ) : string; override;
    function GetRowCount : Integer; override;
    function GetColumnCount : Integer; override;
  public
    constructor Create( AIniFilename : string );
  end;