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]

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

[DeddyH]

In der ersten Zeile stehen doch die Überschriften. Also könntest Du Dir doch theoretisch mit 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

StringGrid.Rows[0].Cols.IndexOf('gesuchte Überschrift') und wenn ich es so schreibe
StringGrid.Rows[0].IndexOf('gesuchte Überschrift') bekomme ich immer -1 zurück und es wird nichts in das ender der Spalte geschrieben??

[DeddyH]

Versuch malStringGrid.Cols[0].IndexOf('gesuchte Überschrift') [edit] Nee, das ist wahrscheinlich auch Quatsch. [/edit]