Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

*.DBF-Dateien mit Pascal/Delphi schreiben?

17 views
Skip to first unread message

Christian Körner

unread,
Nov 2, 1998, 3:00:00 AM11/2/98
to
roe...@rzaix340.rz.uni-leipzig.de schrieb am 03.11.98
bzgl. "*.DBF-Dateien mit Pascal/Delphi schreiben?" folgendes:


->Ich habe eine Datenbankdate, lese diese Datensatz für Datensatz aus
->und möchte diese Datensätze in eine DBase-Datei schreiben, nachdem ich
->einige Überprüfungen durchgeführt habe. Wie erhält man unter Pascal

nun, für pascal hatte ich einst ein ähnliches problem, und in diversen
tool-sammlungen nur routinen gefunden, welche eine bestehende dbase-
datei lesen/schreiben/ändern, keine welche eine dbase-date erzeugt.
gibt's bestimmt auch (ja, ich erinnere mich an topaz, eine kommerzielle
tool-sammlung rund um das thema), aber ich bin dann einfach hergegangen,
habe mit der delphi-datenbankoberfläche mir eine leere dbase-datei
mit der gewünschten struktur erzeugt, und den block direkt in mein
pascal-programm eingebunden. man kann dann relativ einfach die
dbase-datei erzeugen, indem man diesen block und dann nacheinander
satz für satz schreibt, alles als ascii. bei interesse kann ich dies
auch noch näher erleutern.

->oder Delphi eine DBase-Datei und wie fürgt man einen neuen Datensatz

nun in delphi ist die unterstützung über die dbe ja 'eingebaut'.


ciao

christian

--------------------------------------------------------------------
e-mail: ch.ko...@link-n.cl.sub.de WWW: www.chk.de
ch.ko...@fen.baynet.de


Gerd Roethig

unread,
Nov 3, 1998, 3:00:00 AM11/3/98
to
Hallo allerseits,

eine sicherlich einfache Frage: Wo findet man Informationen/Quelltexte
zu folgendem Problem:

Ich habe eine Datenbankdate, lese diese Datensatz für Datensatz aus

und möchte diese Datensätze in eine DBase-Datei schreiben, nachdem ich

einige Überprüfungen durchgeführt habe. Wie erhält man unter Pascal

oder Delphi eine DBase-Datei und wie fürgt man einen neuen Datensatz

an eine solche an?

Vielen Dank für jeden Tip im voraus

Uwe (ol...@t-online.de)
und Gerd

Lutz Tandecki

unread,
Nov 3, 1998, 3:00:00 AM11/3/98
to
Hallo Gerd,

- Tabelle mit Tool "Datenbankoberfläche" erstellen
- in Deinem Programm ein Datenmodul erstellen, darin
eine TTable- und eine TDataSource-Komponente erstellen
- in TTable mind. DatabaseName (ein Alias oder ein Verzeichnisname)
und TableName (Dateiname) einstellen

Zugriff auf Tabelle:
With DataModule1 Do Begin
// Tabelle öffnen
Table1.Open; // oder Property Active auf True

// Hier könnte eine Schleife starten, die durch Deine alte
// Tabelle geht

// neuen Datensatz anlegen
Table1.Append;
// Daten zuweisen,
// z.B. Table1.FieldByName ('Feld1').AsString := 'Test';

// Datensatz in Tabelle schreiben
Table1.Post;

// hier würde die Schleife enden

// am Ende Tabelle schließen
Table1.Close;
End;

Ist doch ganz einfach, oder?

Gerd Roethig schrieb:

Ing. Franz Glaser

unread,
Nov 3, 1998, 3:00:00 AM11/3/98
to Gerd Roethig
Gerd Roethig wrote:
>
> Ich habe eine Datenbankdate, lese diese Datensatz für Datensatz aus
> und möchte diese Datensätze in eine DBase-Datei schreiben, nachdem ich
> einige Überprüfungen durchgeführt habe. Wie erhält man unter Pascal
> oder Delphi eine DBase-Datei und wie fürgt man einen neuen Datensatz
> an eine solche an?
>
Für Delphi ist das nicht nötig, da ist alles bereits drin.

Für Pascal gibt es doch die Xbase unit von Antivivisection.
http://www.geocities.com/SiliconValley/2926/tp.html
Kapitel "source".

MfG Franz Glaser

Martin Speicher

unread,
Nov 4, 1998, 3:00:00 AM11/4/98
to
Du schaust Dich einfach in der Online-Hilfe von Delphi um unter dem Begriff
"TTable". Dann kannst Du auch bei Laufzeit eine Tabelle, die Du vorher in
Dein Programm eingefügt hast, der Du einen Namen, den Typ dBase und das
Verzeichnis "DataBaseName" vorgegeben hast.

Nun solltest Du mit TTable. Create(... und einem ewigen Rattenschwanz von
Feldbezeichnungen eine wunderschöne dBase-Tabelle anlegen können.

Wie gesagt, genaue Beschreibung in D-Online-Hilfe!

Gruß

Martin

0 new messages