Thema: Delphi Schleifen imStringGrid

Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#15

Re: Schleifen imStringGrid

  Alt 19. Feb 2005, 14:28
Welche Typen nimmst du denn nun für min, max und Schritt? Integer oder real?
Bei Integer musst du Delphi-Referenz durchsuchenIntToStr nehmen, für real Delphi-Referenz durchsuchenFloatToStr.
Und welche Werte gibst du denn für min, max und schritt ein?

[Edit]

Hast du schon mal die Prozedur von oben ausprobiert? Falls nicht, hier nochmal eine verbesserte Version:
Delphi-Quellcode:
procedure Zahlen_in_StringGrid(MinWert, MaxWert: Integer; abstand, zeile: Cardinal; var strGrd: TStringGrid);
var i,j: Integer;
begin
if MaxWert<MinWert then begin
  i:= MaxWert;
  MaxWert:= MinWert;
  MinWert:= i;
end;//if
i:= minWert;
while i<=MaxWert do begin
  j:= (i-MinWert) div abstand +1;
  strGrd.Cells[j, zeile]:= IntToStr(i);
  i:= i+abstand;
end;//while
end;
(ungetestet)
Ein Beispielaufruf könnte dann so aussehen:
Delphi-Quellcode:
//Zahlen von 0 bis 8 mit Abstand 2 in die erste Zeile des StringGrid SG
Zahlen_in_StringGrid(0, 8, 2, 1, SG);
[/Edit]

MfG
Binärbaum
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat