grueni

Meines Wissens wurden Butterfly-Messer zum verbotenen Gegenstand erklärt. Das mit dem kleinen Waffenschein gilt zum Führen einer Schreckschußwaffe. Hier ein Auszug von der Seite www.fwr.de: 9. Verbotene Waffen 9.1. Sofort nach Veröffentlichung des neuen Waffengesetzes in Bundesgesetzblatt tritt das Verbot der "Pumpgun" in Kraft. Dieses Verbot bezieht sich aber nicht auf alle Vorderschaftrepetierwaffen, sondern nur auf Vorderschaftrepetierflinten mit Pistolengriff, aber ohne Anschlagschaft (Hinterschaft). 9.2. Präzisionsschleudern, Wurfsterne und Butterfly-Messer sind verboten mit Inkrafttreten des Gesetzes am 01.04.2003. 9.3. Faustmesser dürfen von Inhabern einer jagdrechtlichen Erlaubnis oder den Angehörigen der leder- und pelzverarbeitenden Industrie zur Ausübung ihrer Tätigkeit erworben und benutzt werden, ansonsten sind sie verboten. 9.4. Spring- und Fallmesser sind verboten. Hiervon ausgenommen sind Springmesser, wenn die Klinge seitlich aus dem Griff herausspringt (nicht nach vorne) und der aus dem Griff herausragende Teil der Klinge: - höchstens 8,5 cm lang ist und - in der Mitte mindestens eine Breite von 20 % der Länge aufweist und - nicht zweiseitig geschliffen ist und - einen durchgehenden Rücken hat, der sich zur Schneide hin verjüngt 9.5. Wer Waffen besitzt, die bislang nicht einem Verbot des § 37 WaffG unterlagen, jetzt aber verboten werden, hat diese bis zum 31.08.2003 unbrauchbar zu machen, einem Berechtigten zu überlassen oder einen Ausnahmeantrag für den Gegenstand beim BKA zu stellen. Ich glaube den Antrag beim BKA kannst du dir sparen, meinen Antrag auf ein schweres Maschinengewehr haben sie auch abgelehnt ! :floet: :D

So, und noch einer von mir: Day by day, watching you disappear Wishing that you were still here beside me On my own, swimming against the tide There's nobody on my side but your memory

Tja, zu spät ! Aber jetzt weißt du's ja.

Ach so, ich bräuchte noch deine Adresse wegen der Rechnungsanschrift ! :D Gruß zurück.

Ich hab das zwar nicht ausprobiert (ich glaub auch nicht, daß das laufen würde), aber manche Zustände werden in deinem Prog gar nicht abgefangen, ich würds so ähnlich machen: binValue: string; dbPathValue: string; versionValue: string; procedure TForm1.readPMa; var reg: TRegistry; begin reg:=TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; //bei true wird der Schlüssel angelegt, wollen wir das wirklich ? if Reg.OpenKey ('Software\CG\DentalDirect\PraxisMaterial', FALSE) then begin if reg.valueexists('Bin') then binValue := Reg.ReadString('Bin') else binValue := 'Kein Wert vorhanden !'; end else binValue := 'Kein Schlüssel vorhanden'; finally Reg.CloseKey; Reg.Free; end; end; procedure TForm1.readPMb; var reg: TRegistry; begin //todo siehe code von readPMa end; procedure TForm1.readPMc; var reg: TRegistry; begin try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey ('Software\CG\DentalDirect\PraxisMaterial', FALSE) then begin if reg.valueexists('CurrentVersion') then versionValue := intToStr(Reg.ReadInteger('CurrentVersion')) else versionValue := 'Kein Wert vorhanden !'; end else versionValue := 'Kein Schlüssel vorhanden'; finally Reg.CloseKey; Reg.Free; end; Form2.Label12.Caption := binValue; Form2.Label13.Caption := dbPathValue; Form2.Label14.Caption := versionValue; Jetzt weiß ich, warum ich mit IniFiles arbeite !

Mach es z.B. so: if Reg.OpenKey ('Software\CG\DentalDirect\PraxisMaterial', TRUE) then if reg.valueexists('CurrentVersion') then PMc := Reg.ReadInteger('CurrentVersion') else PMc := -1; .... if PMc=-1 then Form1.Label14.Caption := 'Kein Schlüssel !'; Ich vermute, daß der Schlüssel unter 2k/XP nicht erzeugt werden kann, daher gibt OpenKey false zurück, und genau auf diesen Fall mußt du reagieren. Ich gehe mal davon aus, daß die Versionsnummer nicht -1 lauten kann, und verwende diesen Wert als "Fehler-Flag".

Also bei der letzten procedure passiert gar nichts, wenn OpenKey fehlschlägt, bei den anderen zwei setzt er den String auf den Fehlertext. Du mußt den Fall behandlen, wenn OpenKey false zurückgibt ! also ungefähr so: if Reg.OpenKey ('Software\CG\DentalDirect\PraxisMaterial', TRUE) then if reg.valueexists('CurrentVersion') then PMc := Reg.ReadInteger('CurrentVersion') else Form2.Label4.Caption := 'Kein Schlüssel !'; finally Reg.CloseKey; Reg.Free; end; Das mit den string-Variablen war auch nicht direkt auf dein Problem bezogen, wäre es das gewesen, hätte dich dein Compiler mit Fehlermeldungen bombardiert !

Könntest du etwas genauer sagen, was da nicht klappt ? Kommt eine Fehlermeldung, findet er den Schlüssel nicht oder was passiert da ? BTW: Deklarier deine String-Variablen einfach mit "string" und nicht mit "string[n]", kann u.U. Fehler geben, wenn du einen String>n zuweisen willst (Der Win2000/XP-Bug im QReport kommt von sowas !)

Ich hab auf 2 Jahre verkürzt, und hab auch das erste Jahr weggelassen. Den Stoff hab ich nicht wirklich vermißt. Ach ja, ich war auf der Ferdinand-Steinbeis-Schule in Reutlingen(BaWü).

Fast richtig, deklarier Z1c als DWord, der Rest müßte hinhauen. Wie gesagt der intToStr bei der Zuweisung der Caption ist das Entscheidende. (intToStr geht auch mit DWord, habs grad ausprobiert).

readInteger gibt wie der Name schon sagt einen Integer zurück. Du mußt eine Typumwandlung machen, um die Label-Caption zuweisen zu können. (btw. Cardinal ist auch ein Integer-Typ). Also z.B. aRegValue: Integer; .... (*some code*) ... aRegValue := aReg.ReadInteger(.... lblRegValue.Caption := intToStr(aRegValue); Ich hoffe das hilft dir weiter. Edit: Das müßte auch mit DWord klappen, wichtig ist der intToStr bei der Zuweisung der Label-Caption, weil die einen String erwartet und keine Ganzzahl. BTW: Zc1 ist kein wirklich schöner Variablenbezeichner, wenn du in einem Team progst machst du dir so keine Freunde !

Aus der Delphi-Hilfe: Die Variable DWORD repräsentiert einen 4-Byte-Integer. Unit Windows type DWORD = Longword; Beschreibung DWORD (Double Word) wird in der Windows-Programmierung zur Darstellung eines 4-Byte-Integers verwendet.. Also würd ichs mal mit nem ReadInteger versuchen.

Wie wäre es mit "string" anstatt "string[200]" ?

TSV 1860 München:1.FC Köln 0 Borussia Dortmund:Werder Bremen 1 Hertha BSC Berlin:Hannover 96 0 VfL Wolfsburg:FC Bayern München 2 Hansa Rostock:VfL Bochum 0 FC Schalke 04:VfB Stuttgart 2 (Gratuliere Schalke zum Souveränen 0:0 im UI-Cup ) Bayer 04 Leverkusen:Hamburger SV 1 1.FC Kaiserslautern:SC Freiburg 0 Borussia M'gladbach:Eintracht Frankfurt 1

Beim Klick auf Button1 sollte jetzt etwas passieren. Du definierst einfach ein OnClick-Ereignis für Button1: Wähle Button1 aus, gehe im Objektinspektor auf das Register Ereignisse, Doppelklick auf das freie Feld neben OnClick, und schon hast du den Prozedur-Rumpf für dein Ereignis. Der Code, der hier eingefügt wird, wird bei Eintreten des Ereignisses ausgeführt ! unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private-Deklarationen } procedure readRegistry; MyString: String; public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.DFM} uses registry; { TForm1 } procedure TForm1.readRegistry; var reg: TRegistry; begin reg:=TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey ('Software\Gotthardt\eASys\Lizenz', TRUE) then MyString := Reg.ReadString('TestString'); finally Reg.CloseKey; Reg.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin readRegistry; Label1.Caption := MyString; end; end.

1. Platziere einen Knopf "Button1" auf deinem Formular 2. Platziere ein Label "Label1" Formular 3. Rufe im OnClick von "Button1" deine Prozedur auf und weise "Label1" den Wert von MyString zu. Also ungefähr so:

Um zum ursprünglichen Thema zurückzukommen: Ich war in BaWü auf dem Technischen Gymnasium (2. LK Technik, bestehend aus Maschinenbau und E-Technik; 1. LK Englisch, Deutsch, Mathe, Physik oder Chemie, sofern ichs noch richtig weiß). Das Niveau bei den Sprachen hielt sich in Grenzen, aber vor allem E-Technik war sehr anspruchsvoll. Ist aber eine ideale Vorbereitung auf ein Ingenieursstudium. Ich würde auf jeden Fall aber Abitur machen !

Tja, ich glaub da fehlt ne Compilerdirektive: Aus der Delphi-Hilfe: Achtung: Entfernen Sie die Direktive {$R *.DFM} nicht aus der Unit-Datei. Andernfalls entsteht Code, der nicht verwendbar ist. Achtung: In einer Unit-Datei darf immer nur ein Formular enthalten sein. Die zugehörige Formulardatei (.DFM) kann nur ein einziges Formular beschreiben. Ich würd das Programm so aufbauen: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private-Deklarationen } procedure readRegistry; public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.DFM} uses registry; { TForm1 } procedure TForm1.readRegistry; var MyString: String; reg: TRegistry; begin reg:=TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey ('Software\Gotthardt\eASys\Lizenz', TRUE) then MyString := Reg.ReadString('TestString'); finally Reg.CloseKey; Reg.Free; end; end; end.

Die Projektdatei sieht OK aus. Dann hätt ich da zwei Fragen: 1. Befinden sich Unit1.pas und Form1.dfm im gleichen Verzeichnis wie die Projektdatei (und heißen die Dateien auch so)? 2. An welcher Stelle bleibt das Programm stehen ? (Ich vermute in der dpr bei CreateForm) btw: Deklarier MyString nicht als globale Variable sondern als öffentliche property !

Wenn ich dich richtig verstehe, entsteht der Fehler beim Start des Programms. Hast du schon mal einen Blick in die Projektdatei geworfen ? Ich denk mal, da liegt der Hund am ehesten begraben !

Ich würde das Studium lieber nicht abbrechen. Ich hab während meines Praxissemesters einen Lehrvertrag zum FIAE unterschrieben, und mein Studium abgebrochen. Mit dieser Entscheidung bin ich heute nicht so richtig glücklich. Es gibt viele Stellenangebote, die für einen FI nicht in Frage kommen, für einen Dipl.-Ing aber schon (Was nicht heißen soll, daß der FI das nicht hinbekommen würde). Außerdem finde ich, daß mit der Fi-Ausbildung allein etwas Hintergrundwissen fehlt (zumindest für einen Programmierer). Also: Versuch dein Studium durchzuziehen !

Ich hätte da noch DOS 2.11 im Angebot, war noch von meinem Olivetti M19.

Eintracht Frankfurt - Hertha BSC - 0 SC Freiburg - Bor. M'gladbach - 0 VfB Stuttgart - 1. FC Kaiserslautern - 1 Werder Bremen - FC Schalke 04 - 1 1. FC Köln - Borussia Dortmund - 2 1860 München - VfL Wolfsburg - 1 VfL Bochum - Bayer Leverkusen - 2 Hamburger SV - Bayern München - 2 Hannover 96 - Hansa Rostock - 1

Also, ich hatte bei der Musterung Astma(hab ich immer noch) , Heuschnupfen(hab ich immer noch) und Taub hab ich mich auch gestellt. Ich wurde mit dem Kommentar "Auch für Sie finden wir einen Schreibtisch" T2 gemustert. Mein Ausbilder durfte mich dann halt öfter mal zur San-Staffel tragen, weil ich wg. meinem Astma umgekippt bin.

Sorry, mein Fehler. Hatte BorderStyle auf bsDialog. :floet: