Du muss deine Daten aus der Datei etwas vorbehandeln:
Delphi-Quellcode:
for ndx := 0 to Pred (mastersl.Count) do
begin
s := mastersl.Strings[ndx];
if s= '' then
Continue; // leere Zeile überspringen
if s[1] = '*' then
Continue; // Zeile mit Kommentar überspringen
detailsl.Clear;
detailsl.DelimitedText := '"' + StringReplace(s,';','";"',[rfReplaceAll]);
// du erwartest 11 Felder. Sind es weniger, dann mit Leerstrings auffüllen
while detailsl.Count < 11 do
detailsl.Add('');
Übrigens: IBQuery1.
SQL.Text nur einmal
ausserhalb der Schleife zuweisen und IBQuery1.close auch wegglassen.