Hi,
schaut euch bitte mal den folgenden Code an. In der gekennzeichneten Zeile meldet der Compiler: Ungültige Typenumwandlung...
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i : Integer;
begin
if PageControl3.PageCount > 0 then
begin
for i:=0 to PageControl3.pagecount-1 do
begin
PageControl3.ActivePageIndex:=i;
//in der nächsten Zeile kommt der fehler.......
if MessageDlg('Möchten Sie das Dokument '+(PageControl3.ActivePage.Controls[0] as TTabSheet).caption+' speichern?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
if SaveDialog1.Execute then
(PageControl3.ActivePage.Controls[0] as TSynEdit).Lines.SaveToFile(savedialog1.FileName);
end;
end;
end;
end;
Wo liegt mein Fehler?
Greetz und thx