Forum: Datenbanken
Delphi
by shmia,
16. Aug 2006
Hier ein Beispiel:
procedure TForm1.Feld4711GetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
// man liest das Feld "Sender" aus
// und schreibt die Textdarstellung in Variable "Text" rein
if Sender.IsNull then
Text := ''
else
Text := UmwandelnLaditudeInString(Sender.AsFloat, False);
end;
Forum: Datenbanken
Delphi
by shmia,
16. Aug 2006
Fein, wenn dann alles geklappt hat, dann könntest du die Funktion SingleCoordString() und die Umkehrfunktion dazu in die Code-Library stellen (Längen-/Breitengrade lesbar formatieren).
Das könnten andere wahrscheinlich auch gut gebrauchen.
Forum: Datenbanken
Delphi
by shmia,
16. Aug 2006
berechnete Felder sind hier die falsche Technik.
Du möchtest einzelne Felder vom internen Maschinenformat in ein menschenlesbares Format umwandeln; un zwar in beide Richtungen.
Für diese Aufgabe hat jedes Feld die Events: OnGetText und OnSetText.