Datensätze kopieren in VFP und in Delphi

Delphi bietet gegenüber VFP erheblich Vorteile, was die wesentlich modernere, komfortablere Entwicklungsumgebung angeht, die Mächtigkeit der Sprache sowie auch den Erweiterungsmöglichkeiten und sogar im Datenbankbereich.

Trotzdem hat VFP natürlich auch seine Vorteile, um z.B. einen Datensatz zu kopieren, braucht es nur einen Dreizeiler:

SCATTER MEMVAR
APPEND BLANK
GATHER MEMVAR

Das wars. Sinnvollerweise sollte man AutoInc-Felder (eventuell andere Felder) ausschließen, zumindest beim Einfügen, um Konflikte zu vermeiden, das erreicht man über

GATHER MEMVAR FIELDS EXCEPT ID.

Die VFP Hilfe ist recht ausführlich, was die detaillierteren Möglichkeiten angeht.

In Delphi liest sich das Ganze etwas länger, erfüllt aber den gleichen Zweck:

Procedure CopyRecord;
var
aField: Variant;
i: Integer;
begin
// Array erstellen entsprechend den Anforderungen der Ausgangstabelle vom Typ Variant
aField := VarArrayCreate( [0, myTable.Fieldcount – 1],VarVariant);
// Feldinhalte einlesen
for i := 0 to (mytable.Fieldcount – 1) do
aField[i] := mytable.fields[i].Value;
myTable.Insert;
// Array-Werte in den neuen Datensatz schreiben
try
for i := 0 to (myTable.Fieldcount – 1) do
begin
// exemplarisch wollen wir das Feld ID, welches ein AutoInc-Feld ist ausschließen
if (mytable.Fields[i].FieldName <> ‚ID‘) then
myTable.fields[i].Value := aField[i];
end;
myTable.post;
except
on e: exception do
begin
showmessage(e.Message);
myTable.Cancel;
end;
end;
end;

Fairerweise habe ich im Unterschied zur VFP-Version hier auch einen Try-Except-Block mit eingebaut.
Obwohl länger erfüllt die Delphi-Version natürlich auch Ihren Zweck. Nicht getestet, aber das Ganze sollte natürlich auch unter Lazarus seinen Zweck tun.

Werbung

Aktuelle Top Aktionen bei Acer, HP, Lenovo, Bitdefender & Co

Angebote bei Acer
» Großer Acer Herbst Sale:Bis zu 200 Euro Rabatt auf viele Acer Notebooks, Convertibles, Gaming Notebooks und PC, Monitore und mehr bei den Acer Herbst Angeboten bis 02.10.2018


Angebote bei HP
» HP Back To School 2018: Viele HP Notebooks, Convertibles und Drucker im Angebot


Angebote bei Lenovo
» Lenovo Top Wochenangebote: Heiße ThinkPad und IdeaPad Wochenangebote mit großer Auswahl und dicken Rabatten


Weitere Möglichkeiten
» Top bei Otto: Sehr gute HP Notebook Angebote, teils mit Extras wie 4 Jahre Garantie und mehr
» Mehr Aktionen in der Übersicht: Aktuelle HP Angebote und mehr auf einem Blick


Aktuelle Bitdefender Aktionen:
» Top Angebot: Bitdefender "The Darkest Minds Promotion" mit kostenlosem Gewinnspiel und Angebot Total Security 2019 MultiDevice nur 39,99€ statt 79,99 Euro (50% Rabatt)
» Bitdefender Sommer-Aktion Version 2019 mit 15 Euro Rabatt auf Bitdefender Antivirus Plus 2019 (3 Geräte und 1 Jahr), 30 Euro Rabatt auf Bitdefender Internet Security 2019 (3 Geräte und 1 Jahr) und 40 Euro Rabatt auf Bitdefender Total Security Multi Device 2019 (5 Geräte und 1 Jahr)
» Bitdefender +1 Jahr dazu-Aktion
» Top für neue PCs! Bitdefender AntiVirus Plus Lebenslang Edition: 5 Jahre Schutz für nur für nur 89,95
Weitere aktuelle Bitdefender Angebote » Alle Bitdefender Angebote auf einem Blick

Werbung


Verwandte Themen:


Sorry! Unser Kommentarfunktion ist vorübergehend geschlossen.