Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
20. Okt 2003
ich sehs nicht, hilf mir mal nach pls
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
20. Okt 2003
kein problem?
procedure TForm1.Button1Click(Sender: TObject);
Type
TZahlen = Set Of byte;
var
Zahlen: TZahlen;
begin
if 9 in Zahlen then
ShowMessage('ja')
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
Type TZahlen = '0'..'9'; // was soll das ?
Zahl = Set Of TZahlen; // besser einfach SET OF byte/char
ich hätte auch byte/char genommen, aber es geht nicht, teste selbst
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
jo das ist ja das komische lol
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
jo, danke=)
gibts nen grund dafür das meins nicht ging?
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
ich seh gerade das nichtmal das geht, super ...
if (Edit2.Text <> '') AND (length(Edit2.Text) > 2) AND not (edit2.Text in Zahlen)
^^^^^^^das trifft nicht zu obwohl edit2 100% ne 1 am anfang ha -_-
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
ok ^^.
btw:
procedure TForm2.Button2Click(Sender: TObject);
Type TZahlen = '0'..'9';
Zahl = Set Of TZahlen;
var
sl1: TStringList;
s: string;
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
ahh, danke, dachte die gehören ganz oben mit hin weil da schonmal type steht :D
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
wenn ich das was ich eben schrieb hier rein mache:
type
TForm2 = class(TForm)
Type TZahlen = '0'..'9';
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Forum: Sonstige Fragen zu Delphi
Delphi
by Pseudemys Nelsoni,
19. Okt 2003
hoi,
ich bekomme es irgendwie nur hin lokale typen zu schreiben...wo kommen sie global hin?
unter dem bereits bestehenden type ganz am anfang? da bekomme ich nur fehler wie "end fehlt" etc