-
Forum: Multimedia
Delphi
by tigerman33,
3. Dez 2005
Sieh dir mal OnKeyPress und UpCase an.
-
Forum: Multimedia
Delphi
by tigerman33,
3. Dez 2005
Das ist besser. :)
Ich hab mir erlaubt mal ein bisschen in deinem Code rumzupfuschen :wink:
Alle Änderungen die ich gemacht hab sind mit // *** markiert und anschließend kurz erklärt. Du findest die Änderungen am einfachsten indem du nach *** suchen lässt.
Aber sieht schon ganz gut aus, soweit.
-
Forum: Multimedia
Delphi
by tigerman33,
3. Dez 2005
Das war nicht das was ich gemeint habe. Wie soll denn das jemand debuggen? :roll:
Häng die Dateien an, also die dpr, pas, dfm und was sonst noch alles dazugehört. Die "Delphi-Dateien" quasi, deinen Quellcode.
Und zwar als attachment hier im Forum, so dass wir das runterladen können, in Delphi einladen und dann nach dem Fehler suchen.
Nicht persönlich gemeint, aber du machst es einem nicht...
-
Forum: Multimedia
Delphi
by tigerman33,
3. Dez 2005
In dem zipfile ist nur die exe und die txt. Wie sollen wir denn den Fehler in deinem Code finden, wenn du den Code nicht da mit reinpackst?
Wenn du den nicht auf dieser Webseite zur Verfügung stellen willst, kannst du ihn ja einfach als Anhang (!) hier im Forum posten.(Ganz unten über dem Button "Vorschau").
-
Forum: Multimedia
Delphi
by tigerman33,
3. Dez 2005
Da gibt's nicht viel zum angucken, es fehlt nämlich der Sourcecode... :roll:
//edit:
von dem ich vorschlagen würde, dass du ihn einfach mal anhängst.
-
Forum: Multimedia
Delphi
by tigerman33,
2. Dez 2005
Also zumindest in deinem letzten Code tauchte lblFehler nicht auf. Generell solltest du solche Abfragen über die Caption vermeiden, das ist nicht besonders elegant. Mach lieber eine Boolean-Variable für deine Abfrage.
Zu deinem konkreten Problem würde ich mal vermuten, dass entweder lblFehler.Caption weder '1' noch '0' ist, oder du deine Paintbox wieder auf invisible gestellt hast.
-
Forum: Multimedia
Delphi
by tigerman33,
2. Dez 2005
Ich zitiere mich mal selbst: :mrgreen:
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Hast du das auch mal ausprobiert?
Ich vermute nicht, dann wäre dir nämlich aufgefallen, dass du stattdessen die Zeichen 2 bis 13 mit den ersten zwölf Buchstaben des Alphabets überschrieben hast.
Wir sind hier alle gerne bereit dir zu helfen, aber du musst dir
1. schon selber Gedanken machen und
2. auch mal ein bisschen arbeiten, experimentieren, ausprobieren.
Wenn du eine Idee hast,...
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Exakt :)
Jetzt machen wir etwas, was sozusagen zum guten Stil gehört.
Und zwar muss deine Woerterliste am Ende ja auch wieder freigegeben werden. Du brauchst sie ja nicht mehr, und sie frisst nur noch Speicher. (Das ist nicht das was ich meinte, das Freigeben gehört zum Pflichprogramm!).
Um sicherzustellen, dass dies auf jeden Fall geschieht, auch wenn zwischendrin ein Fehler auftreten...
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Schon besser :wink:
Zunächst mal: TStringList ist ein Typ, dass heißt du musst eine Variable deklarieren vom Typ TStringList:
var Woerterliste: TStringlist;
begin
Woerterliste := TStringList.Create;
Woerterlist.LoadFromFile('Woerter.txt'); // Achtung: hier Hochkommata, das ist ein String!
Dazu solltest du dir in der OH am besten die Kapitel über objektorientierte Programmierung...
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Ich glaube nicht, dass du jemand finden wirst, der dir jetzt den Code dafür schreibt. Versuch es selbst, und wenn du irgendwo konkret nicht weiterkommst, helfen wir dir weiter.
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Es wäre hilfreich, wenn du die Stelle markieren würdest, wo das Problem besteht.
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Neue Frage -> neuer Thread.
Aber ja, du kannst mit TStringList.LoadFromFile die Wörter einlesen und dann mit random eins aussuchen (wenn es das war was du meintest).
Und auf die einzelnen Zeichen kannst du per Indizierung, wie bei Arrays, zugreifen:
AString := 'XYZ';
AString = X
AString = Y
AString = Z
//edit
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
:?: :?: :?:
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Ich hab deinen Code mit Copy-Paste eingefügt, und bei mir kommt beim Klick ein schwarzes Rechteck.
-
Forum: Multimedia
Delphi
by tigerman33,
1. Dez 2005
Zeichnen tut ers vermute ich mal schon. Aber beim nächsten Neuzeichnen der Paintbox wird alles wieder übergepinselt, deswegen ist nichts zu sehen. Sieh dir dazu mal das OnPaint-Ereignis an.
Wenn du selbst auf dem Canvas rumzeichnest, bist du auch selbst dafür verantwortlich, dass bei jedem Neuzeichnen der Paintbox bzw des Controls auf dessen Canvas du malst auch deine eigene Grafik wieder...