Ich möchte ein Programm schreiben, das eine Exceltabelle (siehe Anhang) in ein Stringgrid liest.(funktioniert)
Dann sollen alle Koordinate auf ein Image gezeichnet werden z.B. als Kreis.
Die Gauß Krüger-Koordinaten sind eigendlich nur Meterangaben in Bezug auf ein Meridian.
Eigendlich muß die Zeichnung ja nur aus den Differenzen der Koordinaten gezeichnet werden, dabei wäre der kleinste Hochwert aber am weitesten Oben auf dem Image,
ist in Wirkichkeit aber am weitesten unten.

Zitat von verkouter:

dabei wäre der kleinste Hochwert aber am weitesten Oben auf dem Image

Kommt auf dein Koordinatensystem an, das kannst du ja anders definieren (SetMapMode und seine Freunde)
oder dir einfach nur denken es sei anders und von der Unterkante subtrahieren.

z.B. TCanvas und dein Monitor zählen von oben nach unten, aber Bitmaps (deren gespeicherten Lines) von unten nach oben (der Canvas eines Bitmap aber wieder von oben nach unten) ... "standardmäßig"

Das mit den Bitmaps ist falsch. Man kann sich das aussuchen, wie rum Bitmaps zählen sollen. Positive Höhen so wie du sagst, negative Höhen von oben nach unten.

Zu erst geht es mir um die Aufbereitung der Kooerdinaten im Stringgrid.
Habe das vorher in Excel gemacht. Soll jetzt aber direkt im Programm stattfinden.
Ich muss zuerst in der Hochwertspalte den kleinsten Wert ermittel ??? ,diesen von allen Werten abziehen, und dass selbe nochmal bei den Rechtswerten.
Daran scheitert es schon.

Auf das StringGrid greift man mit TStringGrid.Cells zu. Für das Minimum durchläuft man die Spalte und nutzt Math.Min.

markieren

Delphi-Quellcode:

Minimum := StrToFloat(StringGrid.Cells[1,1]);
for i := 2 to StringGrid.RowCount - 1 do
Minimum := Math.Min(Minimum, StrToFloat(StringGrid.Cells[1,i]));

Weitere Hilfe nur mit Projekt.

Zitat:

Zu erst geht es mir um die Aufbereitung der Kooerdinaten im Stringgrid.

Da klang deine Frage/Beschreibung im ersten Post aber irgendwie anders. Dort ging es ja schon um das Zeichnen und Koordinaten.

Zitat von Redeemer:

markieren

Delphi-Quellcode:

Minimum := StrToFloat(StringGrid.Cells[1,1]);
for i := 2 to StringGrid.RowCount - 1 do
Minimum := Math.Min(Minimum, StrToFloat(StringGrid.Cells[1,i]));

Das findet dann erstmal das Kleinste, für den Anfang.

Minimum := Math.Min(Minimum, StrToFloat(StringGrid.Cells[1,i]));
entspricht dabei
if StrToFloat(StringGrid.Cells[1,i]) < Minimum then Minimum := StrToFloat(StringGrid.Cells[1,i]);
Und bei nachfolgenden Suchen, nach dem nächst größeren Wert, werden nun nur noch die Werte betrachtet, die größer als das Minimum des vorherigen Durchgangs sind,
also if (X < DiesesMinimum) and (X > LetztesMinimum) then


Oder die Zeilen erstmal aufsteigend sortieren und dann einfach nur noch alle Zeilen von oben nach unten durchgehn.