If Abfrage mit mehren Befhelen ohne Ends?

Robii · Beiträge: 236

Hallo.

Delphi-Quelltext

1:	if i = 65 then if shift = true then t:='A' else t:='a';;

klappt ja noch. Aber ich möchte gerne folgendes:

markieren

Delphi-Quelltext

1:	if i = 65 then if shift = true then t:='A' shift := false else t:='a';;

Allerdings dürfen keine Ends vorhanden seien, da das ganze in

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

            if i = 53 then t:='5';
            if i = 54 then t:='6';
            if i = 55 then t:='7';
            if i = 56 then t:='8';
            if i = 57 then t:='9';
            if i = 65 then if shift = true then t:='A' else t:='a';;
            if i = 66 then t:='B';
            if i = 67 then t:='C';
            if i = 68 then t:='D';

geschieht und mit einem End die Variablen die zugewiesen sind nicht mehr funktionieren.

Wie kann ich dies realisieren?
Ps.: Mit einer eigenen Procedure habe ich es versucht scheitere aber daran, das ich nicht weiß wie ich die Werte i & t später wieder übergeben soll.
Grüße.

Regan · Verfasst: Mo 01.06.09 23:01

Wie wäre es mit case?

BenBE · Verfasst: Mo 01.06.09 23:03

Außerdem sollte man NIE explizit gegen True oder False Abgleichen; ein Boolean ist ein Boolean ist ein Boolean!

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Robii · Beiträge: 236

Sorry, kenne mich noch nicht so gut mit Delphi aus,

BenBE hat folgendes geschrieben :

Außerdem sollte man NIE explizit gegen True oder False Abgleichen; ein Boolean ist ein Boolean ist ein Boolean!

was willst du mir hiermit sagen?

Grüße.

Moderiert von Narses: Zitat repariert

jaenicke · Verfasst: Mo 01.06.09 23:08

Suchst du vielleicht den Befehl Chr? Der wandelt den Asciicode in den Buchstaben um... (65 --> 'A', 66 --> 'B', ...)
Und Ord macht das Gegenteil.

Robii hat folgendes geschrieben :

was willst du mir hiermit sagen?

Der Vergleich mit Booleanwerten (z.B. if shift = true then) ist nicht nur unschön und unlogisch, sondern falsch.
Hier habe ich mal ein kleines Beispiel gebastelt, wann es schief geht:
www.delphi-forum.de/....php?p=548760#548760
Mehr dazu steht hier:
www.delphi-treff.de/...olean-werten/page/4/
Und warum das auch vollkommen unlogisch ist:
www.delphi-forum.de/....php?p=560637#560637

Robii · Beiträge: 236

Kann mir jemand einen Beispiel-Code zu dem 'case' geben ?
Weiß nicht genau, wie ich das da eibringen soll.Grüße.

jaenicke · Verfasst: Mo 01.06.09 23:19

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

case i of
  ...
  53: t:='5';
  54: t:='6';
  55: t:='7';
  56: t:='8';
  57: t:='9';
  65: if shift then t:='A' else t:='a';
  66: t:='B';
  67: t:='C';
  68: t:='D';
  ...
end;

oder einfach (wie gesagt):

markieren

Delphi-Quelltext

1:
2:
3:
4:

if shift then
  t := Chr(i)
else
  t := Chr(i + 32);

Robii · Beiträge: 236

Moderiert von Narses: Komplett-Zitat des letzten Beitrags entfernt.

Das war mir schon klar, aber es ging ja darum, das der untere Code ergänz auf folgendes werden muss :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

  53: t:='5';
  54: t:='6';
  55: t:='7';
  56: t:='8';
  57: t:='9';
  65: if shift then t:='A' shift := false else t:='a';
  66: t:='B';
  67: t:='C';
  68: t:='D';

das nachdem dann ein großes A geschrieben worden ist, die Shift - Taste indirekt auch wieder false ist.
Grüße.

jaenicke · Verfasst: Mo 01.06.09 23:23

Da fehlt dann begin und end, aber was hast du gegen Chr, da sparst du dir doch die ganze manuelle Behandlung...

Robii · Beiträge: 236

Chr ?
Wie benutze ich das?

Weiß gar nicht was das ist und bin aus dem Beitrag eben auch nicht wirklich schlau geworden wie ich mir das vorstelllen soll.

jaenicke · Verfasst: Mo 01.06.09 23:29

jaenicke hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	t := Chr(i);

Das gibt den Buchstaben zu dem Asciicode zurück, wie gesagt...

Robii · Beiträge: 236

Ok, und wie unterscheide ich dann zwischen groß & klein ? Verstehe das Prinzip noch nicht so ganz.
Grüße.

Georg08 · Verfasst: Mo 01.06.09 23:31

Delphi-Syntax:

markieren

Delphi-Quelltext

1:	function Chr(X: Byte): Char;

Beschreibung

Chr gibt das Zeichen zurück, das dem im Byte-Wert X angegebenen Ordinalwert (ASCII-Wert) entspricht.

jaenicke · Verfasst: Mo 01.06.09 23:32

www.torsten-horn.de/techdocs/ascii.htm
A ist 65, a ist 97...

Robii · Beiträge: 236

ich weiß nicht wie ich das einbringen soll. Kann mir da jemand evtl. einen Beispiel-Code schreiben?
Steh auf der Leitung.

Grüße.

jaenicke · Verfasst: Di 02.06.09 00:06

jaenicke hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	t := Chr(i);

Das ist das Beispiel... :roll:

Das macht von dem Shift abgesehen das selbe wie dein ganzes if bzw. case...

Robii · Beiträge: 236

Wie kann ich die Funktion denn jetzt noch so erweiter, das sie groß & klein Schreibung beachtet ?

Grüße.

jaenicke · Verfasst: Di 02.06.09 00:30

Die Funktion beachtet die von sich aus, streng nach Tabelle (siehe oben). Wenn du den Asciicode anders interpretieren willst, dann musst du z.B. 32 addieren um aus einem Groß- einen Kleinbuchstaben zu machen und umgekehrt.

Boldar · Verfasst: Di 02.06.09 00:54

Oder mir lowercase bzw. uppercase arbeiten...
mein delphi hat da sone schöne funktion wenn man f1 drückt...

Robii · Beiträge: 236

Mein Delphi hat keine schöne Funktion wenn man F1 drückt, weil man mit Vista die Hilfe-Datei nicht mehr lesen kann.

Mein Programm basiert aber auf der Eingabe, das heißt, das wenn jemand etwas eingibt die Funktion aktiv wird, wie kann ich da feststellen, ob ein großes A oder ein kleines a eingegebn worden ist?

Grüße.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme