Zahlen aus Spalten auslesen

Finn · Beiträge: 43

Hallo Delphi-Freunde,

ich stehe bei meienem Delphi-Programm, welches einen Wettersatellitenempfangsrotor automatisch einen Satelliten verfolgen soll wieder vor einem Problem (zumindest für mich Delphi-Einsteiger).

Und zwar möchte ich aus einer Textdatei zwei Koordinaten (Azimuth und Elevation) zu einem bestimmten Zeitpunkt (immer zu der Zeit, die eine Zeile über den Koordinaten ganz links steht) in zwei Variablen laden.

Die Textdatei sieht gekürzt so aus:

--------------------------------------------------
FENGYUN 1D 2005-Apr-19 05:15:52 - 05:24:06
--------------------------------------------------

Time Lat Lon Doppler Azim Elev Range
05:15:49.000 64,30°N 55,31°E 0Hz 42,876° 0,914° 3385,9km
05:15:54.000 64,02°N 55,06°E 0Hz 43,437° 1,041° 3370,3km
05:15:59.000 63,74°N 54,81°E 0Hz 44,003° 1,166° 3354,9km
05:16:04.000 63,47°N 54,57°E 0Hz 44,574° 1,292° 3339,7km
05:16:09.000 63,19°N 54,33°E 0Hz 45,150° 1,417° 3324,8km

Ich wäre euch dankbar, wenn ihr mir helfen könntet.

Gruß
Finn

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Ich würde die Werte mit copy auslesen, da sie immer an der gleichen Stelle (von vorne her gesehen) stehen

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Finn · Beiträge: 43

Hallo Tobias,

hab in die Delphi Hilfe geschaut aber kein Bsp. gefunden.
Könntest du vielleicht ein kleines Quelltextbespiel machen?

Gruß
Finn

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Ich würde die Daten als erstes in eine TList bringen, notfalls auch Listbox
Dann würde ich einen Timer(interval=500) erstellen der die Zeit in der List mit der realen Zeit prüft

markieren

Global

1:
2:

a:integer
var1,var2:real;

markieren

Formcreate

1:

a:=0;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if strtotime(copy(listbox1.Items.Strings[a],1,8))=time then
begin
a:=a+1;
var1:=strtofloat(copy(listbox1.Items.Strings[a],?,?))
var2:=....
end;

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.
Moderiert von raziel: Delphi-Tags hinzugefügt.

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme