Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Zitat von Dalai:

Stringlisten beginnen bei Index 0. Nicht nur deswegen solltest du sicherstellen, dass deine Variable RandomNumber im Bereich zwischen 0 und TStringList.Count-1 liegt, bevor du sie als Index für die Stringliste(n) benutzt

Danke, ich wusste das die Liste mit 0 beginnt aber das mit dem Count-1 muss ich mir noch mal anschauen.

Danke für den Tipp @DieDolly, probier ich gleich mal aus.

[DieDolly]

Zitat:

Danke, ich wusste das die Liste mit 0 beginnt aber das mit dem Count-1 muss ich mir noch mal anschauen.

Beispieliste

Zitat:

A
B
C
D

Code:

[0] => A

Count-1 => D

Count ergebe hier 4. Um auf das vierte Item zuzugreifen, muss man aber [3] nutzen (weil die Liste null-basiert ist, erstes Item 0, zweites 1 usw.).

Tipp am Rande: wenn dein Lehrer anfängt Arrays zu deklarieren wie test: array[1 .. 19] dann ignorier das am besten. Diese verfluchten 1-basierten Deklarationen erzeugen nur Probleme früher oder später.

[Delphi.Narium]

'ne Stringliste ist eigentlich schon geeignet.

Wenn man eine Datei hat, in der die Vokabeln in dieser Form stehen:

Code:

englisch=deutsch
House=Haus
Car=Auto

so kann man mit

Delphi-Quellcode:

EnglischeVokabel := VokabelStringliste.Names[RandomNumer];
DeutschVokabel := VokabelStringliste.ValueFromIndex(RandomNumber);

den Inhalt abfragen, ohne dass man dabei dann zwei Dateien parallel pflegen muss.

Die Pflege kann man im Programm recht leicht mit 'nem TValueListEditor realisieren. Der dürfte irgendwo in der Komponentenpalette zu finden sein.

[KetchUp]

Zitat von DieDolly:

Count ergebe hier 4. Um auf das vierte Item zuzugreifen, muss man aber [3] nutzen (weil die Liste null-basiert ist, erstes Item 0, zweites 1 usw.).

Danke, jetzt hab ich das auch verstanden

Zitat von Delphi.Narium:

so kann man mit

Delphi-Quellcode:

EnglischeVokabel := VokabelStringliste.Names[RandomNumer];
DeutschVokabel := VokabelStringliste.ValueFromIndex(RandomNumber);

Danke das funktinoniert super. Aber warum weiß Delphi bei ".Names" das ich den Text vor dem "=" haben will und bei ".ValueFromIndex" den Text dahinter?

[DieDolly]

Zitat:

Aber warum weiß Delphi bei ".Names" das ich den Text vor dem "=" haben will und bei ".ValueFromIndex" den Text dahinter?

Das sagen doch schon die Zugriffe. Mit Names greift man auf den Namen zu (das vor dem =) und Value ist das nach dem =.

[Delphi.Narium]

Zitat von KetchUp:

Danke das funktinoniert super. Aber warum weiß Delphi bei ".Names" das ich den Text vor dem "=" haben will und bei ".ValueFromIndex" den Text dahinter?

Das stammt noch aus den Windowsanfangszeiten, als Konfigurationen (fast ausschließlich) in INI-Dateien gespeichert wurden.

INI-Dateien bestehen aus Bereichen und Werteparen:

Code:

[BereichMitBeliebigemEindeutigemNamen]
Name1=Wert1
Name2=Wert2
Name3=Wert3
[EnglischDeutsch]
Car=Auto
House=Haus
Delphi=Delphi
[DeutschEnglisch]
Auto=Car
Haus=House
Delphi=Delphi
[WeiterSprachpaareMoeglich]
...=...

Vor dem Gleichheitszeichen steht der Name (Mehrzahl = Namen -> englisch = Names) des zu konfigurierenden "Teils" und hinter dem Gleichheitszeichen sein Wert (eine mögliche Übersetzung von Wert ins Englische ist Value (Einzahl) -> Values (Mehrzahl)).

Und das ist ein "Wissen", was man Delphi schon von Anfang an beigebracht hat und heute immernoch nutzen kann, um mit wenig Aufwand 'nen Vokabeltrainer zu schreiben

[KetchUp]

Zitat von Delphi.Narium:

Das stammt noch aus den Windowsanfangszeiten, als Konfigurationen (fast ausschließlich) in INI-Dateien gespeichert wurden.

Vor dem Gleichheitszeichen steht der Name (Mehrzahl = Namen -> englisch = Names) des zu konfigurierenden "Teils" und hinter dem Gleichheitszeichen sein Wert (eine mögliche Übersetzung von Wert ins Englische ist Value (Einzahl) -> Values (Mehrzahl)).

Vielen Dank! Das war genau die Hintergrundinformation die ich wissen wollte.

[KetchUp]

So ganz scheint es doch nicht mit "Names" und "ValueFromIndex" zu funktionieren. Ich hab jetzt alles darauf umgeschrieben, bekomme auch keinen Compiler Error aber wieder ein "List Index out of Bounds" Fehler. Der tritt genau in der Zeile auf wo die Eingabe der Vokabel mit der in der TXT-Datei hinterlegten verglichen wird.

Code:

 Begin
      Input:= E_UserGuess.Text;
      E_UserGuess.Text:= '';

      Answer:=AnsiCompareStr(Vocabulary.Names[RandomNumber], Input);

          RepetitionCheck:=RandomNumber;                                            
          While RepetitionCheck = RandomNumber Do RandomNumber:=random(WordCount);  

          try
            Vocabulary:= TStringList.Create;                                 
            Vocabulary.LoadFromFile('Vocabulary.txt');                     
            L_UnknownWord.Caption:= Vocabulary.ValueFromIndex[RandomNumber];      
            finally
            Vocabulary.Free;
          end;

    end

Wenn ich "Answer:=AnsiCompareStr(Vocabulary.Names[RandomNumber], Input);" auskommentiere geht es aber ich muss die Wörter vergleichen. Es liegt auch nicht an "RandomNumber", wenn ich das durch eine Zahl ersetze kommt der gleiche Fehler.

Gibt es noch eine Möglichkeit die zu vergleichen?

[haentschman]

Hallöle...

Zitat:

Hallo, ich will als Schulprojekt einen Vokabeltrainer erstellen

...soweit so gut. Aber dein Lehrer kommt mit Sicherheit aus der guten alten TurboPascal Zeit.

Ich tippe darauf, weil z.B. die Bezeichner nicht dem aktuellem Standard entsprechen. Letztendlich ist es jedem seine Entscheidung wie man es macht...mein Tipp wäre aber, dich von Anfang an an dem offiziellen Styleguide zu orientieren.
http://edn.embarcadero.com/article/10280
oder in deutsch
https://www.delphi-treff.de/object-pascal/styleguide/

[meine Meinung]
Was mich stört:
* Groß/Kleinschreibung der Bezeichner
* leilweise nicht sprechende Namen jpg besser ImageAnswer ...auch Form1 kann anders heißen
* Unterstriche in den Namen in Verbindung des Types des Controls L_CorrectAnswer -> besser lblCorrectAnswer
* kein korrektes try/finally
* Vergleiche auf TRUE ... kann in die Hose gehen https://www.detlef-heibing.de/progra...onstanten.html
* globale Variablen
[/meine Meinung]

Wenn man schon am Lernen ist, dann aber richtig...

[KetchUp]

Zitat von EWeiss:

Eventuell fehlt ihm etwas Mayo <> Ketchup

Der Gedanke hinter dem Nickname war eigentlich "catch up"

OK, dann poste mal den ganzen Quellcode. Der enthält jetzt aber auch ein Haufen Grafikzeug, da ich versuche das visuell ansprechend zu gestalten ohne wirklich Ahnung von Delphi zu haben.

Also das ganz ist in 3 Forms aufgeteilt. Ein Hauptmenü, einmal der Vokabeltrainer und eine Zusammenfassung am Schluss.

Im Hauptmenü kann man auswählen ob man Deutsch>Englisch oder Englisch>Deutsch lernen will und wie oft eine Vokabel wiederholt werden soll. Dann startet man mit einem Button den Vokabeltrainer (zweites Fenster öffnet sich, Erstes wird geschlossen).

Hier werden die Vokabeln abgefragt. Wenn man alle entsprechend der Wiederholungsanzahl richtig eingegeben hat öffnet sich das dritte Fenster (zweites schließt sich).

Hier wird eine Zusammenfassung angezeigt. Wie lange man gebraucht hat, wie viele versuche man gebraucht hat...
Dann soll man mit einem Button das Hauptmenü wieder öffen können um von vorn anzufangen.

Hier der Quellcode für das Hauptmenü

Delphi-Quellcode:

unit U_MainMenu;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Menus;

type
  TForm1 = class(TForm)
    Bt_Start: TButton;
    Bt_SwitchLanguage: TButton;
    Img_Background_01: TImage;
    Img_Background_02: TImage;
    L_HeadingMainMenu: TLabel;
    E_Repititions: TEdit;
    Img_BackgroundSwitchLanguage: TImage;
    L_SwitchLanguage: TLabel;
    E_Amount: TEdit;
    Img_HeadingAmountBackground: TImage;
    L_HeadingAmount: TLabel;
    Img_HeadingRepititionsBackground: TImage;
    L_HeadingRepititions: TLabel;
    procedure Bt_StartClick(Sender: TObject);
    procedure Bt_SwitchLanguageClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    //procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var GermanEnglish: Boolean;
  var Repititions: Byte;

implementation
uses
  U_VocabularyTraining;

{$R *.dfm}

procedure TForm1.Bt_StartClick(Sender: TObject);
var
  Form2: TForm2;

begin
  Repititions:= StrToInt(E_Repititions.Text);
  Form2 := TForm2.Create(Self);
  //Application.ShowMainForm := False;
  //Form1.Visible := False;
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;


procedure TForm1.Bt_SwitchLanguageClick(Sender: TObject);

Begin

  If GermanEnglish = True
  Then
    Begin
      L_SwitchLanguage.Caption:='Englisch -> Deutsch';
      GermanEnglish:= False;
    End

  Else
    Begin
      L_SwitchLanguage.Caption:='Deutsch -> Englisch';
      GermanEnglish:= True;

    End;

End;


procedure TForm1.FormCreate(Sender: TObject);
var
  rectangle1: TRect;
  color: Tcolor;
  CenterTextHeadingMainMenu_1, CenterTextHeadingMainMenu_2,
  CenterTextSwitchLanguage_1, CenterTextSwitchLanguage_2,
  CenterTextHeadingAmount_1, CenterTextHeadingAmount_2,
  CenterTextHeadingRepititions_1, CenterTextHeadingRepititions_2: Integer;

begin
  GermanEnglish:= True;
  Img_Background_01.Canvas.Brush.Color:= RGB(170,220,70);
  Img_Background_01.Canvas.Rectangle(-1,-1,Img_Background_01.Width+1,Img_Background_01.Height+1);

  Img_Background_02.Canvas.Brush.Color:= RGB(170,220,70);
  Img_Background_02.Canvas.Rectangle(-1,-1,Img_Background_02.Width+1,Img_Background_02.Height+1);

  Img_BackgroundSwitchLanguage.Canvas.Brush.Color:= RGB(170,220,70);
  Img_BackgroundSwitchLanguage.Canvas.Rectangle(-1,-1,Img_Background_02.Width+1,Img_Background_02.Height+1);

  Img_HeadingAmountBackground.Canvas.Brush.Color:= RGB(170,220,70);
  Img_HeadingAmountBackground.Canvas.Rectangle(-1,-1,Img_Background_02.Width+1,Img_Background_02.Height+1);

  Img_HeadingRepititionsBackground.Canvas.Brush.Color:= RGB(170,220,70);
  Img_HeadingRepititionsBackground.Canvas.Rectangle(-1,-1,Img_Background_02.Width+1,Img_Background_02.Height+1);

  L_HeadingRepititions.Font.Name:='Helvetica LT Std';
  L_HeadingRepititions.Font.Size:= 16;
  L_HeadingRepititions.Font.Color:= clWhite;
  CenterTextHeadingRepititions_1:= Form1.Width div 3;
  CenterTextHeadingRepititions_2:= L_HeadingRepititions.Width div 1;
  L_HeadingRepititions.Left:= CenterTextHeadingRepititions_1 + CenterTextHeadingRepititions_2;

  L_HeadingAmount.Font.Name:='Helvetica LT Std';
  L_HeadingAmount.Font.Size:= 16;
  L_HeadingAmount.Font.Color:= clWhite;
  CenterTextHeadingAmount_1:= Form1.Width div 4;
  CenterTextHeadingAmount_2:= L_HeadingAmount.Width div 2;
  L_HeadingAmount.Left:= CenterTextHeadingAmount_1 - CenterTextHeadingAmount_2;

  E_Amount.Font.Name:='Helvetica LT Std';
  E_Amount.Font.Size:= 16;
  E_Amount.Font.Color:= RGB(170,220,70);
  CenterTextHeadingAmount_1:= Form1.Width div 4;
  CenterTextHeadingAmount_2:= E_Amount.Width div 2;
  E_Amount.Left:= CenterTextHeadingAmount_1 - CenterTextHeadingAmount_2;

  L_HeadingMainMenu.Font.Name:='Helvetica LT Std';
  L_HeadingMainMenu.Font.Size:= 24;
  L_HeadingMainMenu.Font.Color:= clWhite;
  CenterTextHeadingMainMenu_1:= Form1.Width div 2;
  CenterTextHeadingMainMenu_2:= L_HeadingMainMenu.Width div 2;
  L_HeadingMainMenu.Left:= CenterTextHeadingMainMenu_1 - CenterTextHeadingMainMenu_2;

  L_SwitchLanguage.Font.Name:='Helvetica LT Std';
  L_SwitchLanguage.Font.Size:= 16;
  L_SwitchLanguage.Font.Color:= clWhite;
  CenterTextSwitchLanguage_1:= Form1.Width div 2;
  CenterTextSwitchLanguage_2:= L_SwitchLanguage.Width div 2;
  L_SwitchLanguage.Left:= CenterTextSwitchLanguage_1 - CenterTextSwitchLanguage_2;

  E_Repititions.Text:= '3';

end;

end.

Ja, das kann man sicherlich optimaler gestalten aber das ist in der Aufgabe nicht so wichtig (ist ja auch nur ein Schulfach, kein Informatik Studium). Ich muss aber den ganzen Quellcode in einem Vortrag erklären können.

Und hier der Quellcode zum Vokabeltrainer:

Delphi-Quellcode:

unit U_VocabularyTraining;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, JPEG;

type
  TForm2 = class(TForm)
    Bt_Compare: TButton;
    E_UserGuess: TEdit;
    Img_FeedBack: TImage;
    Img_Background_04: TImage;
    Img_Background_03: TImage;
    L_HeadingTrainer: TLabel;
    L_RemainingWords: TLabel;
    Img_BackgroundUnknownWord: TImage;
    L_UnknownWord: TLabel;
    L_CorrectAnswer: TLabel;
    Img_BackgroundCorrectAnswer: TImage;
    Img_FlagQuestion: TImage;
    Img_FlagAnswer: TImage;
    L_HeadingTrainerDescription: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Bt_CompareClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  var
    Vocabulary: TStringList;
    RandomNumber, Abfragen: Integer;
    jpgFlag, jpgCorrect, jpgWrong: TJpegImage;
    StartTime: TDateTime;
    Duration: TDateTime;
  end;

var
  Form2: TForm2;

implementation
uses
  U_MainMenu, U_Conclusion;

{$R *.dfm}

procedure TForm2.Bt_CompareClick(Sender: TObject);
var
  Input: String;
  Answer, RepetitionCheck: Integer;
  Form3: TForm3;

Begin
  If Vocabulary.Count > 0 Then

    Begin
      If GermanEnglish = True

      Then
        Begin
          Input:= E_UserGuess.Text;
          E_UserGuess.Text:= '';

          Answer:=AnsiCompareStr(Vocabulary.Names[RandomNumber], Input);

          If Answer=0
          Then
            Begin
              L_CorrectAnswer.Caption:='';
              Img_FeedBack.Picture.Bitmap.Assign(jpgCorrect);
              Vocabulary.Delete(RandomNumber);
            End

          Else
            Begin
              L_CorrectAnswer.Caption:='Deine Antwort: '+(Input)+'   '+'Richtige Antwort: '+(Vocabulary.Names[RandomNumber]);
              Img_FeedBack.Picture.Bitmap.Assign(jpgWrong);

            End;

            RepetitionCheck:=RandomNumber;
            While RepetitionCheck = RandomNumber Do RandomNumber:=random(Vocabulary.Count);

            try
              L_UnknownWord.Caption:= Vocabulary.ValueFromIndex[RandomNumber];
              L_RemainingWords.Caption:= 'Verbleibende Vokabeln: '+IntToStr(Vocabulary.Count);
              L_RemainingWords.Font.Name:='Helvetica LT Std';
              L_RemainingWords.Font.Size:= 16;
              L_RemainingWords.Font.Color:= RGB(170,220,70);
              finally
            end;
        end

      Else
        Begin
          Input:= E_UserGuess.Text;
          E_UserGuess.Text:= '';

          Answer:=AnsiCompareStr(Vocabulary.ValueFromIndex[RandomNumber], Input);

          If Answer=0
          Then
            Begin
              L_CorrectAnswer.Caption:='';
              Img_FeedBack.Picture.Bitmap.Assign(jpgCorrect);
              jpgCorrect.free;
              Vocabulary.Delete(RandomNumber);
            End

          Else
            Begin
              L_CorrectAnswer.Caption:='Deine Antwort: '+(Input)+'   '+'Richtige Antwort: '+(Vocabulary.ValueFromIndex[RandomNumber]);
              Img_FeedBack.Picture.Bitmap.Assign(jpgWrong);
              jpgWrong.free;
            End;

            RepetitionCheck:=RandomNumber;
            While RepetitionCheck = RandomNumber Do RandomNumber:=random(Vocabulary.Count);

            try
              L_UnknownWord.Caption:= Vocabulary.Names[RandomNumber];
              L_RemainingWords.Caption:= 'Verbleibende Vokabeln: '+IntToStr(Vocabulary.Count);
              L_RemainingWords.Font.Name:='Helvetica LT Std';
              L_RemainingWords.Font.Size:= 16;
              L_RemainingWords.Font.Color:= RGB(170,220,70);
              finally
            end;
        End;
    End

  Else
    Begin
      FormDestroy(Vocabulary);
    End;
End;


procedure TForm2.FormCreate(Sender: TObject);
var
  CenterTextHeadingTrainer_1, CenterTextHeadingTrainer_2,
  CenterTextHeadingTrainerDescription_1, CenterTextHeadingTrainerDescription_2,
  CenterTextRemainingWords_1, CenterTextRemainingWords_2: Integer;

begin
   //Color := RGB(170,220,70);              //Hintergrund grün
   //P_Question.Color := RGB(255,255,255);  //Fragefeld Hintergrund weiß
   //P_Answer.Color := RGB(255,255,255);    //Antwortfeld Hintergrund weiß

  Img_Background_03.Canvas.Brush.Color:= RGB(170,220,70);
  Img_Background_03.Canvas.Rectangle(-1,-1,Img_Background_03.Width+1,Img_Background_03.Height+1);

  Img_Background_04.Canvas.Brush.Color:= RGB(170,220,70);
  Img_Background_04.Canvas.Rectangle(-1,-1,Img_Background_04.Width+1,Img_Background_04.Height+1);

  Img_BackgroundUnknownWord.Canvas.Brush.Color:= RGB(170,220,70);
  Img_BackgroundUnknownWord.Canvas.Rectangle(-1,-1,Img_BackgroundUnknownWord.Width+1,Img_BackgroundUnknownWord.Height+1);

  Img_BackgroundCorrectAnswer.Canvas.Brush.Color:= RGB(220,220,220);
  Img_BackgroundCorrectAnswer.Canvas.Rectangle(-1,-1,Img_BackgroundCorrectAnswer.Width+1,Img_BackgroundCorrectAnswer.Height+1);

  L_HeadingTrainer.Font.Name:='Helvetica LT Std';
  L_HeadingTrainer.Font.Size:= 24;
  L_HeadingTrainer.Font.Color:= clWhite;
  CenterTextHeadingTrainer_1:= Form1.Width div 2;
  CenterTextHeadingTrainer_2:= L_HeadingTrainer.Width div 2;
  L_HeadingTrainer.Left:= CenterTextHeadingTrainer_1 - CenterTextHeadingTrainer_2;

  L_HeadingTrainerDescription.Font.Name:='Helvetica LT Std';
  L_HeadingTrainerDescription.Font.Size:= 16;
  L_HeadingTrainerDescription.Font.Color:= clWhite;
  CenterTextHeadingTrainerDescription_1:= Form1.Width div 5;
  CenterTextHeadingTrainerDescription_2:= L_HeadingTrainerDescription.Width div 2;
  L_HeadingTrainerDescription.Left:= CenterTextHeadingTrainerDescription_1 - CenterTextHeadingTrainerDescription_2;

  L_RemainingWords.Caption:= 'Verbleibende Vokabeln: 3';
  L_RemainingWords.Font.Name:='Helvetica LT Std';
  L_RemainingWords.Font.Size:= 16;
  L_RemainingWords.Font.Color:= RGB(170,220,70);
  CenterTextRemainingWords_1:= Form1.Width div 2;
  CenterTextRemainingWords_2:= L_RemainingWords.Width div 2;
  L_RemainingWords.Left:= CenterTextRemainingWords_1 - CenterTextRemainingWords_2;

  jpgCorrect:= TJpegImage.Create;
  jpgCorrect.LoadFromFile('True.jpg');

  jpgWrong:= TJpegImage.Create;
  jpgWrong.LoadFromFile('False.jpg');

  StartTime := Now;

  Vocabulary:= TStringList.Create;
  Vocabulary.LoadFromFile('Vocabulary.txt');

  RandomNumber:= random(Vocabulary.Count);
  L_RemainingWords.Caption:= 'Verbleibende Vokabeln: '+IntToStr(Vocabulary.Count);

  If GermanEnglish = True

  Then
    try
      L_HeadingTrainerDescription.Caption:= 'Deutsch -> Englisch | '+IntToStr(Repititions)+' Abfragen | 10 Vokabeln';

      jpgFlag := TJpegImage.Create;
      jpgFlag.LoadFromFile('GermanFlag.jpg');
      Img_FlagQuestion.Picture.Bitmap.Assign(jpgFlag);
      jpgFlag.free;

      jpgFlag := TJpegImage.Create;
      jpgFlag.LoadFromFile('BritishFlag.jpg');
      Img_FlagAnswer.Picture.Bitmap.Assign(jpgFlag);
      jpgFlag.free;

      L_UnknownWord.Caption:= Vocabulary.ValueFromIndex[RandomNumber];
      L_CorrectAnswer.Caption:= '';
      finally
    end

  Else
    try
      L_HeadingTrainerDescription.Caption:='Englisch -> Deutsch | '+IntToStr(Repititions)+' Abfragen | 10 Vokabeln';

      jpgFlag := TJpegImage.Create;
      jpgFlag.LoadFromFile('BritishFlag.jpg');
      Img_FlagQuestion.Picture.Bitmap.Assign(jpgFlag);
      jpgFlag.free;

      jpgFlag := TJpegImage.Create;
      jpgFlag.LoadFromFile('GermanFlag.jpg');
      Img_FlagAnswer.Picture.Bitmap.Assign(jpgFlag);
      jpgFlag.free;

      L_UnknownWord.Caption:= Vocabulary.Names[RandomNumber];
      L_CorrectAnswer.Caption:= '';
      finally
    End;

end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  Vocabulary.Free;
  jpgWrong.free;
  jpgCorrect.free;

  Form3 := TForm3.Create(self);
      try
        Form3.ShowModal;
      finally
        Form3.Free;
      end;
end;

end.

Das letzte Fenster hat noch nicht viel Code. In Delphi ist der Code deutlich übersichtlicher, da um Begin und End noch eine Farbige Klammer ist.