Hallo erstmal,
ich stehe hier vor einem kleinen(großen) Problem.
Ich möchte wie schon beschrieben eine Textdatei, die von einem anderen Programm erstellt wird, in eine andere Datenbank einlesen.
Dies will ich über eine Schnittstell machen die ich selber programmiere. Die daten werden in der Textdatei so dargestellt --> "Name","Vorname","PLZ","Wohnort".
Hier erstmal der Quellcode:
Delphi-Quellcode:
procedure TForm1.ReadfileEGUB2;
var F: TextFile;
hFile,S: string;
begin
if OpenDialog1.Execute then { Dialog zum Dateiöffnen anzeigen }
begin
hFile := OpenDialog1.FileName;
AssignFile(F, hFile); { Datei ausgewählt }
Reset(F);
Readln(F, S); { Erste Zeile der Datei lesen }
Memo1.Lines.Add(S); { String in ein TMemo schreiben }
CloseFile(F);
end;
end;
Aufruf der PROCEDURE:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var hMemo : string;
begin
ReadfileEGUB2;
end;
Wie kann ich die Daten aus der Texdatei direkt in ein
Query einlesen. Um ein UPDATE auf
eine neue Datenbank zu machen, oder gibt es da einen anderen Weg.
Danke für eure Hilfe
Gruß AS