StringGrid Spalte mit Namen "ansprechen"

[Nils S.]

Guten Tag zusammen.
Ich arbeite momentan mit einem StringGrid, welches mit Daten aus einer Datenbank gefüllt wird.
Daher möchte ich zum Beispiel die Header der Spalten anders beschriften.

Das kann ich ja beispielsweise so machen:
StringGrid1.Columns[0].Header := 'Nachname'

Aber ist auch so etwas wie:
StringGrid1.Columns['LAST_NAME'].Header := 'Nachname'
möglich?

Die Spalten des Grids sollen für den Nutzer nämlich verschiebbar sein, was zum Beispiel ein Auslesen von Zellen, anhand eines Spaltenindexes, unmöglich macht.
Oder kann ich, wenn die oben gezeigte Überlegung nicht funktioniert, anhand des Spaltennamens den Index herausfinden?

Ich verwende Firemonkey mit XE5.

Danke schonmal im Voraus.

[Volker Z.]

Hallo,

Zitat von Nils S.:

[...]

Aber ist auch so etwas wie:
StringGrid1.Columns['LAST_NAME'].Header := 'Nachname'
möglich?

AFAIK gibt es das so nicht. Aber mit etwas Handarbeit ist das doch schnell zusammengebastelt, z. B. so:

Delphi-Quellcode:

type
  TStringGridHelper = class helper for TStringGrid
  private
    function GetColumnByName (Name : TComponentName) : TColumn;
  public
    property ColumnByName [Name : TComponentName] : TColumn read GetColumnByName;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    LastName: TStringColumn;
    StringColumn2: TStringColumn;
    StringColumn3: TStringColumn;
    StringColumn4: TStringColumn;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

function TStringGridHelper.GetColumnByName (Name : TComponentName) : TColumn;
var
  i : Integer;
  c : TColumn;
begin
  Result := nil;

  for i := 0 to ColumnCount - 1 do
    begin
      c := Columns [i];
      if c.Name = Name then
        begin
          Result := c;
          Break
        end
    end;

  if not Assigned (Result) then
    raise Exception.Create ('Fehlermeldung')
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.ColumnByName ['LastName'].Header := 'Nachname'
end;

Gruß

[Nils S.]

Wenn man die Ahnung hat, dann ist es natürlich nur ein bisschen Handarbeit.
Leider bin ich da noch nicht so fit.

Vielen Dank schonmal dafür.
Ich schaue mir das mal in Ruhe an und werde mich dann bestimmt nochmal mit ein, zwei Fragen melden.

[matashen]

ich denke so würds auch gehen

StringGrid1.Columns[stringgrid1.rows[0].indexof('LAST_NAME')].Header := 'Nachname' Du kannst immer mit indexOf die Spalte/Zeile rausfinden. du kannst auch mittels rows und cols die Zeile/Spalte als ganzes lesen und schreiben indem du delimiter setzt und den Text als delimitertext abgreifst, oder eben als text also sowas wie stringgrid1.rows[0].text gibt dir die gesamte erste Zeile zurück
Bei stringgrid1.rows[0].delimitertext inklusive der gesetzten trennzeichen

Gruß Matthias

[mkinzler]

Was macht man nicht alles, damit endlich das letzte Stück Performance hin ist ...

[matashen]

irgendwas braucht man ja damit wieder neue Hardware gekauft werden muss. Für den 0815 Bürokram reicht doch auch die 10 Jahr alte Kiste, aber wenn dann ne solche Resourcen Hammerapplication kommt.....

[Dejan Vu]

Zitat von mkinzler:

Was macht man nicht alles, damit endlich das letzte Stück Performance hin ist ...

Man tut eine Dictionary nehmen, in die man vorher alles reinpackt, was man während der Laufzeit so alles wiederfinden will. Dann kann man den Kauf der neuen Hexa-Core-CPU auf Weihnachten verschieben.

[Nils S.]

Vielen Dank Volker!
Es funktioniert und ich habe es nach intensiven Überlegungen sogar verstanden.

Vielleicht noch zur Anmerkung, falls das hier mal jemand liest, der die Gleiche Überlegung hat:
Die Spalten des StringGrids haben erstmal keinen Namen.
Ich habe vermutet, dass sie direkt den Namen bekommen, welcher in der Datenbank angegeben ist.
Aber über

StringGrid1.Columns["Index"].Name := 'Spaltenname'

kann man vorher ja die Namen zuweisen.

[Popov]

Kann es sein, dass das alles erst in Delphi > 7 eingebaut wurde? Zumindest kenne ich das nicht.

Auch wenn es bereits eine Lösung gibt und mein Delphi keine Columns bei StringGrid kennt, ListView hat Columns und die haben eine ID. Im Gegensatz zum Index ist die ID eindeutig und wird im Laufe der Sitzung kein weiteres mal vergeben. Wird ein Column gelöscht und eine neue erstellt (so zumindest meine Beobachtung bei einigen Tests vor paar Jahren), bekommt es eine neue ID. Somit kann man immer leicht Listen erstellen die einen Namen mit einer ID verbinden.

[Sir Rufo]

@Popov

Ich nehme es stark an, denn AFAIK hat Delphi 7 noch kein Firemonkey