IF ..... then Else

[SaFu]

Wenn ich das so mache

Delphi-Quellcode:

procedure TForm7.Button2Click(Sender: TObject);
var Sl:TStringlist;
    i,x,y:integer;
    leherl: Textfile;
    d :String;
begin
 if Edit3.Text <> '' then // hier 
  begin
   Combobox3.Items.Add(Edit3.Text);// Text in die ComboBox3 List übergeben
   Sl:=TStringlist.Create;
   Sl.Add(IntToStr(StringGrid1.Colcount));
   Sl.Add(IntToStr(StringGrid1.Rowcount));
   for x:=0 to StringGrid1.ColCount-1 do
   for y:=0 to StringGrid1.RowCount-1 do
   Sl.Add(StringGrid1.Cells[x,y]);
   for x:=0 to StringGrid1.ColCount-1 do
   Sl.Add(IntToStr(StringGrid1.ColWidths[x]));
   for x:=0 to StringGrid1.RowCount-1 do
   Sl.Add(IntToStr(StringGrid1.RowHeights[x]));
   Sl.Add(IntToStr(StringGrid1.Clientwidth));
   Sl.Add(IntToStr(StringGrid1.Clientheight));
   Sl.Add(IntToStr(Ord(StringGrid1.ScrollBars)));
   Sl.Savetofile(leherl,+(Edit3.text)+'.txt');
   Sl.Free;
   Showmessage(leherl,+(Edit3.text)+'.txt gepeichert');
    begin
     AssignFile(leherl,'+'liste.txt');
     ReWrite(leherl);
     for i:= 0 to ComboBox3.Items.Count - 1 do
      begin
       WriteLn(leherl,ComboBox3.Items[i]);
      end;
   CloseFile(leherl);
 end;
 Form8.ListBox1.Clear;
 begin
  AssignFile(leherl'liste.txt');
  Reset(leherl);
 while EOF(leherl) = False do
   begin
    Readln(leherl,d);
    Form8.ListBox1.Items.Add(d);
   end;
  Closefile(leherl);
 end;
 end
  else
   Application.MessageBox('Bitte Name des zu Vertrendenden Lehrer eingeben','Speicher Information',48);
end;

löst die meldung vor dem Speichen aus mit dem anderen Speichert die Procedur erst und dann kommt die meldung