Edit und string

[CalganX]

NEIN.

Das war ein Beispiel. Nicht direkt auf deinen Fall bezogen. Ich habe versucht dir klar zu machen, wie if funktioniert.

Chris

PS: Such dir mal ein Tutorial über Delphi (im speziellen Kontrollstrukturen) heraus. Ich denke, dass du da sehr viel erfahren bzw. lernen kannst.

[Die Muhkuh]

So es FUNTZT ENDLICH
auf Sharky's art gehts und auch so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
const
  Zahl1 = '/cu';
  Zahl2 = '/cu';
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Zahl1 = Zahl2 then
    begin
      close;
    end;
end;

end.

Spider!

[CalganX]

:wall:

Chris

PS: Ich sag nix mehr.

[Sharky]

Zitat:

Zitat von Spider

...

Code:

const
  Zahl1 = '/cu';
  Zahl2 = '/cu';

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Zahl1 = Zahl2 then
    begin
      close;
    end;
end;

Da könntest Du auch schreiben :

Delphi-Quellcode:

 if 1 = 1 then
  begin
   close;
  end;

Denn Du prüfst ob zwei Konstanten gleich sind. Und bei dir sind sie es per vorgabe.

[Armageddon]

Hi

Ähm ich weiß nicht genau ob es so 100%ig geht aber allemal ein kleiner Anstoß für Dich. Hoffe ich wenigstens.

Delphi-Quellcode:

if Edit1.Text = '/cu' then Form1.Close;

Ob das aber so richtig funktioniert und es zu keinem Fehler kommt weil ich ja nicht weiß wieviele Form's Du noch auf hast. Keine Ahnung wie sich das dann verhält. Mußt halt mal bisserl testen.

Gruß Arma.

[Die Muhkuh]

@Armageddon

ne das geht nicht sonst kommt ne Fehlermeldung Ausdruck muss BOOLEAN sein1

[CalganX]

Das ist jetzt wirklich seltsam. Denn rein theoretisch ist Arma's Möglichkeit vollkommen korrekt und das wollten wir dir eigentlich die ganze Zeit verklickern.

Was hast du denn da stehen?

Chris

[Die Muhkuh]

Sorry hab was verwechselt!

Geht doch!!! Hab ausversehen nur so geschrieben:

Delphi-Quellcode:

if Edit1 = '/cu' then Close;

hab .text vergessen! Peilich :oops:

Spider