Text in die letze Zeile vom StringGrid

[SaFu]

Mosche

Wie es son oben stehet versuche ich ein ergebnis vom label7 in die letzte seile in eine bestimmte Zeile vom StringGrid zu bekommen

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
Var i,x,y : integer;
 summe1 : double;
begin
Label3.Caption:= '';
Label7.Caption:= '';
 begin
  for I := 0 to StringGrid1.RowCount - 1 do
   if StringGrid1.Cells[i,0] = 'Way' then
    for x := 0 to StringGrid1.ColCount -1 do
    if StringGrid1.Cells[x,0] = 'ergebnisspalte' then  <------------------------------------------------                                                          
                                                                                                      |
      Label3.Caption:= FloatToStr(findStrings(StringGrid1.Cols[i],StringGrid1.Cols[x]));              |
      summe1:= StrToFloat(Label3.caption);                                                            |
      Label7.Caption:= Format('%.6f',[summe1/(60)])+' <-min. sek.-> ';                                |
 end;                                                                                                 |
 StringGrid1.RowCount:= StringGrid1.RowCount +1; // hier wird eine hinzugefügt und in die soll der Text von 
label7 von der spalte 

end;

Gruß sascha

[DeddyH]

Delphi-Quellcode:

StringGrid1.Cells[0,Pred(StringGrid1.RowCount)] := Format('%.6f  <-min. sek.->',[summe1/60]);

Sollte den Text in die erste Spalte der letzten Zeile schreiben.

[SaFu]

ja genau sowas hatte ich gemeint wie ich das jetzt in die richtige spalte bekomme schau ich mal

Dank dir

[soulies]

...

und da das ergebnis in der spalte 'ergebnisspalte' stehen soll merkst du dir die position
von 'x' wenn die spalte gefunden wurde und übernimmst dann x statt 0

Zitat:

StringGrid1.Cells[0,Pred(StringGrid1.RowCount)] := Format('%.6f <-min. sek.->',[summe1/60]);

StringGrid1.Cells[x,Pred(StringGrid1.RowCount)] := Format('%.6f <-min. sek.->',[summe1/60]);


cya

[SaFu]

Dat hab ich ja schon gemacht wird aber nicht in die spalte geschrieben :-D

[DeddyH]

In der ersten Zeile stehen doch die Überschriften. Also könntest Du Dir doch theoretisch mit

Delphi-Quellcode:

StringGrid.Rows[0].Cols.IndexOf('gesuchte Überschrift')

den Index der gesuchten Überschrift ermitteln, sofern ich keinen Denkfehler mache.

[soulies]

ist eigentlich

Zitat:

Delphi-Quellcode:

 procedure TForm1.Button6Click(Sender: TObject);
Var i,x,y : integer;
summe1 : double;
begin
Label3.Caption:= '';
Label7.Caption:= '';
begin
  for I := 0 to StringGrid1.RowCount - 1 do
   if StringGrid1.Cells[i,0] = 'Way' then
    for x := 0 to StringGrid1.ColCount -1 do
    if StringGrid1.Cells[x,0] = 'ergebnisspalte' then  <-----------------------------------------------------                                                         
                                                                                                             |
      Label3.Caption:= FloatToStr(findStrings(StringGrid1.Cols[i],StringGrid1.Cols[x]));                     |
      summe1:= StrToFloat(Label3.caption);                                                                   |
      Label7.Caption:= Format('%.6f',[summe1/(60)])+' <-min. sek.-> ';                                       |
end;                                                                                                        |
StringGrid1.RowCount:= StringGrid1.RowCount +1; // hier wird eine hinzugefügt und in die soll der Text von label7 von der spalte

end;

das 'begin' in zeile 7 verrutscht oder ...

[SaFu]

nee warum ist so

[SaFu]

Ich glaube das sitimmt doch nicht so

Delphi-Quellcode:

StringGrid.Rows[0].Cols.IndexOf('gesuchte Überschrift')

und wenn ich es so schreibe

Delphi-Quellcode:

StringGrid.Rows[0].IndexOf('gesuchte Überschrift')

bekomme ich immer -1 zurück und es wird nichts in das ender der Spalte geschrieben??

[DeddyH]

Versuch mal

Delphi-Quellcode:

StringGrid.Cols[0].IndexOf('gesuchte Überschrift')

[edit] Nee, das ist wahrscheinlich auch Quatsch. [/edit]