Wert auslesen Stringgrid

[Murcielago82]

Hallo,

ich möchte bei einem StrinGrid die Eigenschaften jeder Zelle in einem array EigenchaftenGrid speichern. Bei Farbe und Schrift gelingt es mir auch. Nur bekomme ich es einfach nicht hin auch den String der in der Zelle stecht mit auszulösen. Hat einer eine Lösung? Schonmal danke!

Delphi-Quellcode:

type
 TEigenschaften = Record
   Farbe : TColor;
   Schrift : TFont;
var
EigenschaftenGrid : array [0..n-1,0..n-1] of TEigenschaften;

Gruß
Murcielago

[s-off]

Hallo,

den Inhalt einer bestimmten Zelle eines StringGrids erhältst Du über

TStringGrid.Cells[Spalte, Zeile] => String

[Murcielago82]

Hallo danke erstmal,

allerdings will ich für jede Zelle die Eigenschaften wie Schrift, Farbe und eben auch den Wert in einem Array abspeichern.
dies mache ich mit der FArbe so:

Delphi-Quellcode:

type
  TEigenschaften = Record
   Farbe : TColor;
   Schrift : TFont;
   Wert : ????;  //Was kommt hier als Eigenschaft für wert rein????
var
  EigenschaftenGrid : array [0..n-1,0..n-1] of TEigenschaften;
begin

for i:=0 to n do
  begin
    for j:=0 to n do
    begin
      EigenschaftenGrid[i,j].farbe := clWhite; 
      EigenschaftenGrid[i,j].wert := ??? // wie lese ich hier den wert aus?
    end;
  end;
end;

Hier will ich aber auch den Wert auslesen und dann an die gleiche Stelle im Array den wert/string speichern.

Gruß
M.

[fkerber]

Hi!

Es sollte ein String sein, aber wo genau ist denn hier eigentlich das Stringgrid?

Ciao Frederic

[Murcielago82]

Hallo,
das StringGrid erstelle ich hier:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  
  Rect: TRect; State: TGridDrawState);
VAR outRect : TRect; 
    Text    : String; 
begin
  Text:= StringGrid1.Cells[ACol, ARow]; 
  outRect := Rect; 
  
  StringGrid1.Canvas.Brush.Color:=EigenschaftenGrid[ACol, ARow].Farbe;
  StringGrid1.Canvas.Fillrect(Rect); 
  if EigenschaftenGrid[ACol, ARow].Schrift <> nil then
    StringGrid1.Canvas.Font.Assign(EigenschaftenGrid[ACol, ARow].Schrift); 
  
  DrawText(StringGrid1.Canvas.Handle,PChar(Text),length(Text),outRect,DT_Center     
    or
    DT_SingleLine);
end;

[fkerber]

Hi!

Naja, erstellen würde ich das nicht nennen. Das da ist ja schon eine Methode des Stringgrids, oder?

Ciao Frederic

[Murcielago82]

Nicht
war der Meinung das ich bei Drawcell beschreibe wie das Stringgrid erstellt werden soll?

[fkerber]

Hi!

Nein, DrawCell ist eine Methode des bereits erstellten Stringgrids. In ihr beschreibst du, wenn man so will, das Aussehen.

Am besten postest du mal größee QuellCode-Abschnitte, damit man auch mal mitbekommt, wo die ersten Auszüge aufgerufen werden.
So ganz hab ich den Sinn auch noch nicht verstanden. Der Wert steht doch im Stringgrid drin, warum soll er auch noch in das Record rein?


Ciao Frederic

[Murcielago82]

So,
also den Inhalt einer Celle in ein einziges array zu speichern habe ich schon hinbekommen. Nun dachte ich das ich zu diesen, die Eigenschaften irgendwie abspeichern kann, somit also pracktisch ein array spare. Also alle informationen der Celle(x,y) an einer Stelle in einem array habe (Schrift, Hintergrundfarbe,und eben den String der in der Zelle ist).
Also an der Position array(x,y) nach Wahl einen der 3 Wahlmöglichkeiten auslesen kann.
Ich hoffe ich habe mich nciht allzu blöd ausgedrückt!

[fkerber]

Hi!

Also du willst für jede Zelle des Stringgrids ein Record haben, in dem Wert, Farbe und Schrift drinstehen?

Und wo genau hängst du jetzt?
Du hast es doch für Farbe und Schrift hinbekommen.
Der "Wert" ist ein String und wie du an ihn rankommst steht doch weiter oben auch...


Ciao Frederic