Edit Text ausblenden ?

[DeddyH]

Na, über EditArray[Index]

[Davidlocke13]

Delphi-Quellcode:

if 'A' in String then
  begin
    EditArray[i].Text := Wort[i + 1];
  end;
end;

warum geht das nicht ?

[Sir Rufo]

Sach mah, willst du so etwas wie den Galgenmann (Hangman) programmieren?

Das sieht irgendwie ganz grauslich aus, was du da probierst ...

[Davidlocke13]

Zitat von Sir Rufo:

Sach mah, willst du so etwas wie den Galgenmann (Hangman) programmieren?

Das sieht irgendwie ganz grauslich aus, was du da probierst ...

Ja ich bin da wieder dran nachdem ich mein anders Project fertig habe !

Das es grauslich aussieht glaube ich gerne aber so ist das bei mir nun mal wenn ich mir alles selber beibringen muss und ausprobiere !

[Sir Rufo]

Zitat von Davidlocke13:

Zitat von Sir Rufo:

Sach mah, willst du so etwas wie den Galgenmann (Hangman) programmieren?

Das sieht irgendwie ganz grauslich aus, was du da probierst ...

Ja ich bin da wieder dran nachdem ich mein anders Project fertig habe !

Das es grauslich aussieht glaube ich gerne aber so ist das bei mir nun mal wenn ich mir alles selber beibringen muss und ausprobiere !

Hmmm, aber funktioniert Hangman nicht so, dass man einen Buchstaben sagt und dann werden alle Stellen wo der Buchstabe im Wort enthalten ist aufgedeckt?

Dann frage ich mich, wozu du die ganzen Edit-Felder benötigst?

Wenn du dir eine TPaintBox nimmst und im TPaintBox.OnPaint Event die Felder malst und (wenn schon erraten) die Buchstaben in die Felder malst, dann bist du mit der Anzeige-Geschichte in Null-komma-Nix fertig ...

Aber so versuchst du dich gerade selber zu ver....

[Davidlocke13]

Hier mein Projekt

Hangman.rar

oder eher Müll

[Sir Rufo]

Nur mal so zum Spaß eine (sehr einfache) Hangman-Painter-Componente, die man so benutzt:
Eine PaintBox auf die Form klatschen (irgendwie noch Align := alTop ) und dann:

Delphi-Quellcode:

uses
  HangManPainter,
  ...;

type
  TForm1 = class( TForm )
    PaintBox1 : TPaintBox;
    procedure FormCreate( Sender : TObject );
  private
    FPainter : THangManPainter;
  end;

procedure TForm1.FormCreate( Sender : TObject );
begin
  FPainter := THangManPainter.Create( PaintBox1 );
end;

THangmanPainter stellt (aktuell) zwei Eigenschaften zur Verfügung CharCount und Chars[Index] und darüber stellt man dann die Anzahl der Buchstaben ein und an welcher Stelle welcher Buchstabe angezeigt werden soll.

Das Spiel selber steuert das dann ganz simpel über diese beiden Eigenschaften.

Das weitere Aufhübschen überlasse ich dir dann mal

Delphi-Quellcode:

unit HangManPainter;

interface

uses
  Classes, ExtCtrls;

type
  THangManPainter = class( TComponent )
  private
    FPaintBox :  TPaintBox;
    FCharCount : Integer;
    FChars :     array of Char;
    procedure SetCharCount( const Value : Integer );
    function GetChars( const index : Integer ) : Char;
    procedure SetChars( const index : Integer; const Value : Char );
    function GetCharCount : Integer;
  protected
    procedure OnPaint( Sender : TObject );
  public
    constructor Create( APaintBox : TPaintBox ); reintroduce;

    property CharCount : Integer read GetCharCount write SetCharCount;
    property Chars[const index : Integer] : Char read GetChars write SetChars;

  end;

implementation

uses
  Math, Graphics, Types;

{ THangManPainter }

constructor THangManPainter.Create( APaintBox : TPaintBox );
begin
  inherited Create( APaintBox );
  FPaintBox         := APaintBox;
  FPaintBox.OnPaint := OnPaint;
end;

function THangManPainter.GetCharCount : Integer;
begin
  Result := High( FChars ) - Low( FChars ) + 1;
end;

function THangManPainter.GetChars( const index : Integer ) : Char;
begin
  Result := FChars[Index];
end;

procedure THangManPainter.OnPaint( Sender : TObject );
var
  LIdx :    Integer;
  LCanvas : TCanvas;
  LRect :   TRect;
  LText :   string;
begin
  if CharCount <= 0
  then
    Exit;

  LCanvas := FPaintBox.Canvas;

  LCanvas.Brush.Style := bsSolid;
  LCanvas.Pen.Color   := clBlack;
  LCanvas.Pen.Width   := 4;
  LCanvas.Pen.Style   := psSolid;

  LCanvas.Font.Height := 30;

  for LIdx := 0 to Pred( CharCount ) do
    begin

      if FChars[LIdx] = #0
      then
        LCanvas.Brush.Color := clWhite
      else
        LCanvas.Brush.Color := clYellow;

      LRect.Left   := 50 * LIdx + 30;
      LRect.Top    := 30;
      LRect.Width  := 30;
      LRect.Height := 50;
      LCanvas.RoundRect( LRect, 5, 5 );

      InflateRect( LRect, - 3, - 3 );

      LText := FChars[LIdx];
      LCanvas.TextRect( LRect, LText, [tfCenter, tfSingleLine, tfVerticalCenter] );
      // LCanvas.TextRect( LRect, LText );
    end;
end;

procedure THangManPainter.SetCharCount( const Value : Integer );
begin
  SetLength( FChars, Value );
  FPaintBox.Invalidate;
end;

procedure THangManPainter.SetChars( const index : Integer; const Value : Char );
begin
  FChars[Index] := Value;
  FPaintBox.Invalidate;
end;

end.

[Klaus01]

Zitat von Davidlocke13:

Delphi-Quellcode:

if 'A' in String then
  begin
    EditArray[i].Text := Wort[i + 1];
  end;
end;

warum geht das nicht ?

.. kannst Du bitte etwas genauer werden?

Hat i einen Wert zugewiesen bekommen?

Grüße
Klaus

[p80286]

Zitat von Davidlocke13:

Delphi-Quellcode:

if 'A' in String then
  begin
    EditArray[i].Text := Wort[i + 1];
  end;
end;

warum geht das nicht ?

Falls das Pseudocode sein soll, dann sollte das gehen, falls das ernst gemeint war "string" als Variablenname ist nicht so der Bringer.
(ist i>0?)
ist i<length(wort)?

Fragen über Fragen.

Gruß
K-H

Reich doch mal allen Sourcecode den Du hast herüber.

[Davidlocke13]

Zitat von p80286:

Zitat von Davidlocke13:

Delphi-Quellcode:

if 'A' in String then
  begin
    EditArray[i].Text := Wort[i + 1];
  end;
end;

warum geht das nicht ?

Falls das Pseudocode sein soll, dann sollte das gehen, falls das ernst gemeint war "string" als Variablenname ist nicht so der Bringer.
(ist i>0?)
ist i<length(wort)?

Fragen über Fragen.

Gruß
K-H

String ist nur Pseudocode ich gebe meinen Variablen schon ordentliche Namen

Ist hallt alles nicht so der Bringer bei mir was ich da mit Delphi mache! in der Berufsschule Lehren ich C++ für Konsole und da auf meiner Arbeit mit Delphi Programmiert wir muss ich das jetzt auch noch irgendwie lernen!