Hi.
Also..zuerst musst du die .TXT-Datei in eine Listbox oder ähnlichs laden.
Danach liest du die einzelnen Datensätze wort für Wort, Zeile für Zeile in DBEdits, die du mit dem Dbgrid verbindest.
Posi steht hier für die Position in der Zeile!!!
Name:= Listbox1.Items[1];
Tel := Listbox1.Items[4];
Zeile := Listbox1.Items[2];
posi := 1;
repeat
Vorname := Vorname + Zeile[posi];
posi := Posi+1;
until (zeile[posi] = ' ');
for I:= posi+1 to length(Zeile) do
Titel := Titel + Zeile [I];
Zeile := Listbox1.Items[3];
posi := 1;
repeat
Strasse := Strasse + Zeile[posi];
posi := posi+1;
until (Zeile[posi] = ' ');
repeat
Hausnr := Hausnr + Zeile[posi];
posi := posi+1;
until (Zeile[posi] = ' ');
repeat
PLZ := PLZ + Zeile[posi+1];
posi := posi+1;
until (Zeile[posi] = ' ');
for I:= posi+1 to length(zeile) do
Ort := Ort + Zeile[I];
//hier werden die gelesenen Daten in die Edits gepackt und mit append in die Tabelle geschrieben und mit Post übernommen.
table1.append;
Titel_E.Text := Titel;
Vorname_E.Text := Vorname;
Name_E.Text := Name;
Strasse_E.Text := Strasse;
Hausnummer_E.Text := Hausnr;
PLZ_E.Text := PLZ;
Ort_E.Text := Ort;
Tel_E.Text := Tel;
Table1.post;
Hoffe des hat Dir geholfen.
MFG Templar
