[Code] Tabelle in Delphi einfügen/erstellen und verwalten

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von [=Snake=], 21. April 2011 .

  1. 21. April 2011
    Zuletzt von einem Moderator bearbeitet: 15. April 2017
    Tabelle in Delphi einfügen/erstellen und verwalten

    Hallo zusammen,

    ich schreibe grade ein kleines Programm um eine Filmdatenbank zu erstellen.

    unbenannt8c1d.jpg
    {img-src: //www.abload.de/img/unbenannt8c1d.jpg}


    Beschreibung:
    Ich habe ein EditFeld ->dort gebe ich einen Namen ein und klicke auf Hinzufügen. Dann soll der Film in eine Tabelle eingetragen werden. Dies hat Unterkategorien: Genre, Medium und Format.
    Habe ich nur einen Namen eingegeben, so bleiben die Felder frei - ansonsten kann ich in den RadioGroups noch weitere Infos ankreuzen.
    Die angekreuzten Items sollen dann einfach in die entspr. Zelle eingefügt werden.

    Ausserdem möchte, dass ich nach Filmnamen suchen kann und nach den Items der RadioGoup sortieren kann.

    Meine Frage:
    Das Interface steht und jetzt muss ich die Tabelle hinkriegen - was empfehlt ihr? Kann ich eine Exceltabelle einfügen? Soll das in einer.txt verwaltet werden? Hat Delphi gute Tabellen (hab einfach mal ne TStringGrid) reingemacht!??

    BW ist natürlich klar!

    DANKE
     
  2. 22. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Ich würde ein TListView nehmen, da die Spalten erstellen und die Daten dort einfügen.

    Um die Daten abzuspeichern bzw. zu laden kannst du die TListView-Komponente super easy über ein TFileStream-Objekt (genauer mit der Membermethode WriteComponent/ReadComponent) in einer Datei hinterlegen.

    Die Implementierung einer Excel-Schnittstelle ist um ein vielfaches komplitzierter, würde ich auch nicht machen, dafür ist der Aufwand zu groß.

    Mfg Rushh0ur
     
  3. 22. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Ahh sehr gut! Das ist genau das richtige!

    Hast du dazu einen Code oder eine genauere Erklärung? Kenne diese Methode ganz und gar nicht.

    Gruß
     
  4. 22. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Ja klar, hier ein Beispiel um die Daten beim erstellen des Formulars zu laden und beim Beenden des Formulars7der Anwendung zu schreiben:

    Code:
    // Datenbank Dateiname
    const DATABASE_FILENAME:String = '\movies.db';
    
    // Arbeitspfad hier hinterlegen
    var ApplicationPath :String; 
    
    procedure TMainForm.FormCreate(Sender: TObject);
    var ReadStream:TFileStream;
    begin
     // Arbeitspfad bestimmen
     ApplicationPath := ExtractFileDir(Application.ExeName);
    
     // Daten aus Datei auslessen wenn diese vorhanden ist
     ReadStream := nil;
     if FileExists(ApplicationPath + DATABASE_FILENAME) then
     try
     ReadStream := TFileStream.Create(ApplicationPath + DATABASE_FILENAME, fmOpenRead);
     ReadStream.Seek(0, soFromBeginning);
     ReadStream.ReadComponent(ListView);
     except
     // Fehlerfall
     end;
     if Assigned(ReadStream) then
     ReadStream.Free;
    end;
    
    procedure TMainForm.FormDestroy(Sender: TObject);
    var WriteStream:TFileStream;
    begin
     // Daten Speichern
     WriteStream := nil;
     try
     WriteStream := TFileStream.Create(ApplicationPath + DATABASE_FILENAME, fmCreate);
     WriteStream.Size := 0;
     WriteStream.WriteComponent(ListView);
     except
     // Fehlerfall
     end;
     if Assigned(WriteStream) then
     WriteStream.Free;
    end;
    
    Natürlich kann man die Datei hinterher nicht einfach so mit einem Texteditor bearbeiten, da die Daten binär hinterlegt sind. Um die Daten Textmässig zu speichern müsste man sich eine eigene Funktion zussamenbauen.

    Mfg Rushh0ur
     
  5. 22. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Sagt ja schon der Name FileStream aus, dass es nicht im Klartext wie man es abspeichert wiederfindet. Außer man läd es wieder über TFileStream.
    Jedoch ist Streamspeicherung glaube ich hier echt die beste Wahl für ne kleine Filmdatenbank.
     
  6. 22. April 2011
    Zuletzt von einem Moderator bearbeitet: 15. April 2017
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Binäre Speicherung reicht vollkommen aus. Danke dir.
    Habe mal ein Testformular mit einer kleinen Testtabelle gemacht (siehe Screenshot):

    unbenanntt7r9.jpg
    {img-src: //www.abload.de/thumb/unbenanntt7r9.jpg}


    An welcher Stelle muss ich denn jetzt den Code eingeben? ViewList hat ja keinen "eigenen" Code.

    Ich habe ausserdem einen Code gefunden, womit die Tabelle sortiert wird - je nachdem auf welchen Header der Spalte ich klicke....das gleiche Problem auch hier: ich weiß gar nicht, an welcher Stelle der Code hinkommt.

    Code:
    type
     TCustomSortStyle = (cssAlphaNum, cssNumeric, cssDateTime);
    
    var
     { variable to hold the sort style }
     LvSortStyle: TCustomSortStyle;
     { array to hold the sort order }
     LvSortOrder: array[0..4] of Boolean; // High[LvSortOrder] = Number of Lv Columns
    
    implementation
    
    {$R *.DFM}
    
    function CustomSortProc(Item1, Item2: TListItem; SortColumn: Integer): Integer; stdcall;
    var
     s1, s2: string;
     i1, i2: Integer;
     r1, r2: Boolean;
     d1, d2: TDateTime;
    
     { Helper functions }
    
     function IsValidNumber(AString : string; var AInteger : Integer): Boolean;
     var
     Code: Integer;
     begin
     Val(AString, AInteger, Code);
     Result := (Code = 0);
     end;
    
     function IsValidDate(AString : string; var ADateTime : TDateTime): Boolean;
     begin
     Result := True;
     try
     ADateTime := StrToDateTime(AString);
     except
     ADateTime := 0;
     Result := False;
     end;
     end;
    
     function CompareDates(dt1, dt2: TDateTime): Integer;
     begin
     if (dt1 > dt2) then Result := 1
     else
     if (dt1 = dt2) then Result := 0
     else
     Result := -1;
     end;
    
     function CompareNumeric(AInt1, AInt2: Integer): Integer;
     begin
     if AInt1 > AInt2 then Result := 1
     else
     if AInt1 = AInt2 then Result := 0
     else
     Result := -1;
     end;
    
    begin
     Result := 0;
    
     if (Item1 = nil) or (Item2 = nil) then Exit;
    
     case SortColumn of
     -1 :
     { Compare Captions }
     begin
     s1 := Item1.Caption;
     s2 := Item2.Caption;
     end;
     else
     { Compare Subitems }
     begin
     s1 := '';
     s2 := '';
     { Check Range }
     if (SortColumn < Item1.SubItems.Count) then
     s1 := Item1.SubItems[SortColumn];
     if (SortColumn < Item2.SubItems.Count) then
     s2 := Item2.SubItems[SortColumn]
     end;
     end;
    
     { Sort styles }
    
     case LvSortStyle of
     cssAlphaNum : Result := lstrcmp(PChar(s1), PChar(s2));
     cssNumeric : begin
     r1 := IsValidNumber(s1, i1);
     r2 := IsValidNumber(s2, i2);
     Result := ord(r1 or r2);
     if Result <> 0 then
     Result := CompareNumeric(i2, i1);
     end;
     cssDateTime : begin
     r1 := IsValidDate(s1, d1);
     r2 := IsValidDate(s2, d2);
     Result := ord(r1 or r2);
     if Result <> 0 then
     Result := CompareDates(d1, d2);
     end;
     end;
    
     { Sort direction }
    
     if LvSortOrder[SortColumn + 1] then
     Result := - Result;
    end;
    
    
    { The ListView's OnColumnClick event }
    
    procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
    begin
     { determine the sort style }
     if Column.Index = 0 then
     LvSortStyle := cssAlphaNum
     else
     LvSortStyle := cssNumeric;
    
     { Call the CustomSort method }
     ListView1.CustomSort(@CustomSortProc, Column.Index -1);
    
     { Set the sort order for the column}
     LvSortOrder[Column.Index] := not LvSortOrder[Column.Index];
    end; 
    THX & Gruß
     
  7. 22. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Naja der Name sagt nicht wirklich was aus, theoretisch kannst du über das TFileStream-Objekt auch Textdateien erstellen.

    Im Objektinspekter findest du unter der Registerkarte Ereignisse, eine liste der Ereignisse die das Objekt hat, in dem du doppelt Klickst auf ein Ereigniss (z.B OnCreate beim Formular oder OnColumnClick beim ListView) wird automatisch eine Funktion im Codeeditor erstellt: da kommt der entsprechende Code dann hin was bei diesem Ereigniss geschieht.

    Benutzerdefinierte funktionen kannst du im Prinzip direkt hinter die implementierung (implementation) setzten, welche du dann Unterhalb verwenden kannst.

    Mfg Rushh0ur
     
  8. 22. April 2011
    Zuletzt von einem Moderator bearbeitet: 15. April 2017
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Ok. Habe deinen ganzen Code im Ereigniss "ColumnClick" drinnen.
    Ich verstehe aber noch nicht, wie ich den Code anpassen muss.
    Wie schreibe ich ihm einen korrekten "ApplicationPath"?? Einfach D:\?

    Er spuckt mir nämlich auch gleich nen Fehler raus:

    unbenanntoudh.jpg
    {img-src: //www.abload.de/thumb/unbenanntoudh.jpg}



    EDIT:
    Die Funktion zum Sortieren habe ich drinnen. Nach längerem "lesen" des Codes hab ich verstanden, wo was hin kommt.

    Aber bei deinem "Speichercode" zeigt er mir Fehler an :-/

    Die const und die var hab ich an der richtigen Stelle eingefügt - auch kein Fehler mehr wie im Screenshot. Jetzt nur das:

    Eine MainForm habe ich nicht - heisst das nicht TForm1 ? Akzeptiert er es vllt deshalb nicht!?
     
  9. 23. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Hehe, darauf hab ich gewartet, ich meine etwas Eigeninitiative muss ja sein.

    Richtig dein Formular heist eigentlich nur TForm1 und meins TMainForm ,weil ich es so bennant habe, damit musst du dementsprechend deine procedure abändern bzw. nur die Sachen zwischen den Zeilen kopieren, und oberhabl der Zeilen.

    Mfg Rushh0ur
     
  10. 23. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Ne klar, nur bevor ich jetzt überall was anders schreibe wollte ich sicher gehen - wie gesagt: bisher noch nie gemacht sowas. Ich meld mich wenn das nächste "Übel" aufkommt ;-)


    EDIT: FUNKTIONIERT! Merci



    Gleich auch die nächste Frage

    Wenn ich in meinem EditFeld einen Filmnamen angebe und in den RadioGroups die Items anklicke, soll er mir (nach einem Klick auf den Hinzufügen-Button) die Sachen in die ViewList schreiben. Ich habs erstmal probiert dem simplen EditText in die erste Spalte schreiben zu lassen, mit:
    Code:
    ViewList1.lines.Add(Edit1.text);
    und

    Code:
    If RadioButton1.checked then ViewList1.Lines.Add('RadioGroup1');
    ...aber er akzeptiert nichts davon. Leider ist die Hilfe von Delphi mir da auch keine Hilfe (ich weiß ja leider nicht wie die Befehle heißen, nach denen gesucht werden soll).
    Sind die Lines bei der ViewList vllt Items? Und vor allem wie kann ich ihm sagen, dass er einen neuen Film auch in ne neue Zeile schreiben soll?
    Brauche also einen befehl, damit er die Items und die entspr. Subitems ausfüllt.

    Könntest du mir da noch helfen?
     
  11. 23. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Das TreeView-Objekt besitzt zwar keine Lines Eigenschaft aber dafür ein Items Eigenschaft, die man wie folgt verwenden könnte:

    Code:
     var ListItem: TListItem;
    
     ...
    
     // Eintrag (Zeile) hinzufügen
     ListItem := ListView.Items.Add;
    
     // Inhalt setzen
     ListItem.Caption := 'Spalte1';
     ListItem.SubItems.Add('Spalte2');
     ListItem.SubItems.Add('Spalte3');
    
    In der Delphi-Hilfe findest du zu allen (standart) Objekten und Funktionen die Beschreibung, einfach mal im Codeeditor ein Objektbezeichner markieren (z.B TTreeView) oder im Formulardesigner ein Objekt markieren und F1 drücken, dann öffnet sich falls vorhanden automatisch die Hilfe zu diesem Objekt/Funktion. Bei Objekten kann man oben auf Eigenschaften bzw. Methoden klicken und erhält eine Liste aller vom Objekt unterstützen Befehle und kriegt darüber eine genaue Beschreibung des Befehls, oft kann man sich sogar ein Beispiel dazu anschauen.

    Mfg Rushh0ur
     
  12. 23. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Ja TOP! Danke danke. Ich setz mich gleich ran un probiers'.

    EDIT: YES! Es funktioniert super.

    Und auch gleich die nächste Frage:

    Jetzt habe ich ja eine Datenbank aber kann aus dem Programm raus, keine (z.B. Fehlerhafte Einträge) löschen (nachdem ich sie markiert habe) oder das Format+Genre ändern.

    1. Wie kann ich also einen markierten Einträg löschen - einfach einen Löschbutton den ich dann anklicken kann?!!

    und

    2. Es wäre schön, dass wenn ich einen Eintrag habe und das Genre z.B. falsch gesetzt habe, ich nachträglich in der Liste bei dem Genreeintrag ein Dropdown Menü bekomme. Somit könnte ich nachträglich das Genre noch ändern.

    THX und Grüß

     
  13. 24. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Zu 1.
    Entweder ein Button oder eventuell wenn es "schöner" sein soll, ein PopupMenu erstellen und mit dem ListView-Objekt assozieren.

    Dafür gibt es mehrere möglichkeiten. Es kommt drauf an ob beim ListView-Objekt multiselect aktiviert ist.

    Im Prinzip brauchst du nur die Delete-Methode des zu löschenden Eintrags aufzurufen.

    Stichwörter wären da:
    ListView.ItemIndex
    ListView.Selected
    ListView.Selected.Delete
    ListView.Items.Item[index].Selected
    ListView.Items.Item[index].Delete

    Zu 2.
    Ein Dropdown-Menu in ListView-Objekt zu erstellen ist etwas komplitziert, vorallem wenn es eingeblendet werden soll, da musst du dann auf verschiedene Events reagieren und deine Box dementsrpächend neu platzieren.

    Eventuell wäre es einfacher, dass wenn ein Eintrag markiert ist, da die Sachen automatisch bei änderung des Genres ö.ä übernommen werden. Da müsstest du halt auf OnChange und OnClick Ereignisse der Auswahlboxen und Eingabeboxen reagieren und prüfen ob markierte Einträge exestieren.
    Wenn man das richtig macht kann man auch so direkt für mehrere Filme gleichzeitig die Werte ändern.

    Mfg Rushh0ur
     
  14. 24. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    So ich will grade den Löschbutton (Ein BitButton) einbauen aber irgendwie meckert er und ich find den fehler nicht:

    Code:
    procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
    
    if ListView1.OnSelectItem
    then BitBtn2.Enabled := true;
    
    end;
    Er sagt "Ausdrucktyp muss BOOLEAN sein" und markert hinter dem "then". Woran liegt das?
     
  15. 24. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Du kannst dir merken das alle Eigenschaften die mit On... anfangen Procudurpointer sind, die kannst du im normalfall nie gebrauchen, da die automatisch erstellt werden wenn du das gegeben Ereigniss benutzt.

    Um zu prüfen ob ein Eintrag markiert ist, im singleselect-Mode, kannst du schauen ob die Eigenschaft Selected einen Zeiger auf einen Eintrag enthält, ansonsten ist diese Null (nil):

    Code:
    if (ListView.Selected <> nil) then ...
    oder
    if Assigned(ListView.Selected) then ...
     ListView.Selected.Caption := 'Markierter Eintrag wurde geändert'.
    
    Mfg Rushh0ur
     
  16. 26. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    HI, ich bekomm bei diesem besch*** Löschbutton immer ne Fehlermeldung:
    Ich habe den Disabled - wenn ich dann einen Eintrag in der Liste anwähle soll er enabled werde.

    Der Befehl ListView.selected.delete funktioniert super aber in verbindung mit der if-schleife nicht. Hier meine neuen Lösungen, die er nicht akzeptiert:

    Code:
    if ListView1.item.selected
    then Button2.enabled :=true
    oder
    Code:
    if (ListView1.Selected <> nil) 
    thenButton2.Enabled :=true

    Auch in Verbindung mit dem "nil" Code. ?( ?(

    Hast du einen Tipp? Der soll "angehen", wenn ich einen Eintrag markiere und "ausgehen" wenn nichts markiert ist.

    Gruß
     
  17. 27. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Folgender Code in das OnClick-Ereignis des ListViews:

    Code:
    Button2.Enabled := Assigned(ListView1.Selected);
    
    if-schleife.de

    *scnr
     
  18. 29. April 2011
    Zuletzt von einem Moderator bearbeitet: 15. April 2017
    AW: Tabelle in Delphi einfügen/erstellen und verwalten


    TOP! Es funktioniert Merci. BW natürlich raus!


    Jetzt eine neue Frage, da ein weiteres Problem aufgetaucht ist:

    So sieht meine Benutzerfläche bisher aus:
    unbenannt237vn.jpg
    {img-src: //www.abload.de/thumb/unbenannt237vn.jpg}


    Wenn ich in das Edit-Feld einen Namen eintrage und die Details in den RadioGroups anklicke funktioniert alles super.

    Wenn ich allerdings nur den Filmnamen eingebe, die RadioGroups NICHT anklicke und auf HINZUFÜGEN klicke, dann kommt folgende Fehlermeldung:

    unbenannt77ru.jpg
    {img-src: //www.abload.de/thumb/unbenannt77ru.jpg}


    Woran liegt das? Ich nehme mal an, dass ich extra einen Befehl eingeben muss, der ihm sagt, dass er die Felder leer lassen soll, wenn nichts ausgewählt ist!?

    Das war mein Ansatz:

    Code:
    var ListItem: TListItem;
    begin
     
    If RadioGroup1.Items = ' '
    then ListItem.Subitems.Add(' ')
    ...aber natürlich merckert er wieder.
     
  19. 29. April 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Richtig; überprüfen, ob ein Eintrag ausgewählt wurde, kannst Du so:
    Code:
    if RadioGroup1.ItemIndex <> -1 then
     //Eintrag ausgewählt
    else
     //Nichts ausgewählt
    
     
  20. 23. Juni 2011
    Zuletzt von einem Moderator bearbeitet: 15. April 2017
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Sooo...ich hatte wieder Zeit um an dem prog weiterzumachen.
    Den fehler bezüglich der Nicht ausgewählten RadioGroup habe ich elegant gelöst, indem ich einfach ein "-" als Item hinzugefügt habe und den standardmäßig "checked" habe - somit bleibt bei der Liste auch keine Spalte einfach leer sondern wird mit einem "-" ausgefüllt, sofern nichts ausgewählt ist.

    Jetzt gibt es nur noch 2 Sachen die ich machen muss, bevor es endlich fertig ist:

    1) Die Suche
    Ich möchte gerne das er die Namensspalte durchsucht. Wenn er einen Eintrag gefunden hat, soll er einfach markiert werden.
    Hab hier mal was gefunden aber verstehe den Code nicht, da er auch alle anderen Subitems durchsucht - ich will nur die erste Spalte:
    Delphi In ListView suchen - Delphi-PRAXiS

    2) In .txt. abspeichern
    Ich hätte gerne, dass er die Liste (reicht auch nur die erste Spalte) in eine .txt schreibt zum abspeichern. Hatte mir überlegt, dass der einfachste Weg wohl über ein Memofeld geht - erst alles ins Memo schreiben und von da in .txt-File?!
    EDIT: OK - das habe ich mittels folgendem Code gelöst:
    Code:
    var
     i:integer;
     S:TStringList;
     begin
     S := TStringList.Create;
     for i := 0 to ListView1.Items.Count-1 do
     S.Add('"'+ ListView1.Items[i].Caption +'",');
     S.SaveToFile('stunden.txt');
     S.Free;

    Könnt ihr mir wieder anreize für den Code geben?

    EDIT: So sieht das Prog übrigens mittlerweile aus, damit man auch eine vorstellung hat:
    unbenannt4uq3.jpg
    {img-src: //www.abload.de/thumb/unbenannt4uq3.jpg}
     
  21. 24. Juni 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Naja zum suchen kannst du durch die Elemente iterieren und immer die Daten mit dem Stichwort zu vergleichen.


    Code:
     for i := 0 to ListView1.Items.Count-1 do
     begin
     if ListView1.Items[i].Caption == SuchText then
     begin
     ListView.ItemIndex := i;
     break;
     end;
     end;
    
    (ungetested)

    Eventuell noch nach Teilstirngs suchen lassen.

    Mfg Rushh0ur
     
  22. 28. Juni 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Muss ich nich noch einen Verweis auf mein Editfeld machen? Dort ja der zu vergleichende Text drinnen?!
     
  23. 30. Juni 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Naja sollte ja nun einfach sein: SuchText durch die Variable ersetzen in der, der Suchtext steht: in deinem Fall EditXYZ.Text.

    Beachte das hierbei jedoch auf groß und kleinschreibung verglichen wird sowie auf die länge des Textes geachtet wird.

    Mfg Rushh0ur
     
  24. 4. Juli 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Hi Rush,

    er meckert wegen dem "for" - woran liegt das?
    Hier mal der Screeny:

    {bild-down: http://www.bilder-space.de/show_img.php?img=819c61-1309781631.jpg&size=thumb}
     
  25. 4. Juli 2011
    AW: Tabelle in Delphi einfügen/erstellen und verwalten

    Hi, so wirds ja nix, dann kann ich dir ja das Programm ja direkt schreiben.
    Wie wärs wenn du dir mal die Syntax von Pascal reinziehst und ein paar Tutorials durcharbeitest?

    @if-Abfrage, war mein Fehler, zur Gleichheitsabfrage muss man nur ein Gleich setzten.

    Ansonsten schau dir mal Variablen definition mal an sowie die einzlenen Bedinungsabfragen, deine if Abfrage ist außerhalb eines gülltigen Bereichs, deswegen mekert der.

    Die Funktion müsste dann so vollständig sein:
    Code:
    procedure TForm1.Button2Click(Sender: TObject);
    var i:Integer;
    begin
     for i := 0 to ListView1.Items.Count-1 do
     begin
     if ListView1.Items[i].Caption = Edit1.Text then
     begin
     ListView.ItemIndex := i;
     break;
     end;
     end;
    end;
    
    Kann das ganze jedoch nicht Testen, da ich damit nicht mehr arbeite und damit Delphi nicht mehr habe.

    Mfg Rushh0ur
     
  26. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.