Opendialog abbrechen bei csv Imort in DB klappt nicht!

[Grolle]

Hallo!
Ich lade mit folgendem Code eine csv/txt Datei in meine Datenbank (Ads):

Delphi-Quellcode:

procedure TForm1.ToolButton5Click(Sender: TObject);
var
  T: TextFile;
  ins,a : String;
  trenner, i : SmallInt;

begin
  if OpenDialog1.Execute then
  AssignFile(T,OpenDialog1.FileName);
  Reset(T);
  while not EOF(T) do begin
    Readln(T,ins);
    ins:= ins + ',';
    AdsTable1.Append;
    for i:= 0 to AdsTable1.Fields.Count-1 do begin
      trenner:= Pos(',',ins);
      a := Copy(ins,1,trenner-1);
      Delete(ins,1,trenner);
      AdsTable1.Fields[i].AsString:= a;
    end;
    AdsTable1.Post;
  end;
  CloseFile(T);
end;

Wenn ich im OpenDialog auf abbrechen klicke bekomme ich eine Fehlermeldung (E/A-Fehler 102)

[Jan]

Na wie wärs wenn du vor dem öffnen guckst ob der Filename <>'' ist?

Gruß

[marabu]

Fehler 102 sagt "be careful with your indentation"

Delphi-Quellcode:

procedure TForm1.ToolButton5Click(Sender: TObject);
var
  T: TextFile;
  ins,a : String;
  trenner, i : SmallInt;
begin
  if OpenDialog1.Execute then
    AssignFile(T,OpenDialog1.FileName);

  Reset(T);
  ...
end;

Wenn du den Code nach dem Execute in einen begin end Block verpackst, dann macht er weniger Probleme...

Grüße vom marabu

[Grolle]

danke, hat geklappt mit begin und end block!