Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Nächsten Buchstaben im Alphabet (https://www.delphipraxis.net/16896-naechsten-buchstaben-im-alphabet.html)

nailor 25. Feb 2004 15:41

Re: Nächsten Buchstaben im Alphabet
 
wenn du bei Z oder z einfach im ASCII-Code einen weiter gehst, landest du im Murks. Deshalb, muss du entweder irgendwas kompliziertes Code, um den Fall abzufangen, oder du machst die von mir vorgeschlagene Sache mit dem array. Die ist nämlich fehlerfrei und leicht erweiterbar (Buchstaben ausnehmen, Reihenfolge ändern (billige Verschlüsselung), ...)

Matze 25. Feb 2004 15:50

Re: Nächsten Buchstaben im Alphabet
 
Zitat:

Zitat von MrKnogge
Warum macht ihr aus einer Fliege einen Elefanten:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i : char;
begin
  i := 'a';
  inc(i);
  ShowMessage(i);
end;

Is meins da nicht besser? :shock:

Delphi-Quellcode:
function NextLetter(Letter: string): string;
begin
  Result := Chr(Ord(Letter[1]) + 1);
end;

Edit: Delphi-Tags, wie immer...

MisterNiceGuy 25. Feb 2004 16:18

Re: Nächsten Buchstaben im Alphabet
 
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
  i : char;
begin
  if i='z' then showmessage('a')
  else begin
  i := 'a';
  inc(i);
  ShowMessage(i);
  end;
end;
das müsste jetzt gehen :)

Brüggendiek 25. Feb 2004 16:22

Re: Nächsten Buchstaben im Alphabet
 
Hallo!

Zitat:

Zitat von MisterNiceGuy
das müsste jetzt gehen :)

Autsch - das tut ja weh!

Wenn i nicht initialisiert wird, dann kann alles drin sein!

In diesem Fall muß das zu erhöhende Zeichen in einer globalen Variablen (besser einer Variablen der Form) gespeichert sein, nicht als lokale Variable der Klick-Prozedur!

Gruß

Dietmar Brüggendiek

MrKnogge 25. Feb 2004 23:28

Re: Nächsten Buchstaben im Alphabet
 
Zitat:

Zitat von Matze
Zitat:

Zitat von MrKnogge
Warum macht ihr aus einer Fliege einen Elefanten:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i : char;
begin
  i := 'a';
  inc(i);
  ShowMessage(i);
end;

Is meins da nicht besser? :shock:

Delphi-Quellcode:
function NextLetter(Letter: string): string;
begin
  Result := Chr(Ord(Letter[1]) + 1);
end;

Edit: Delphi-Tags, wie immer...

Warum ne Funkton schreiben, dies schon gibt ?

Schubi 26. Feb 2004 07:11

Re: Nächsten Buchstaben im Alphabet
 
@ Matze: Und warum zum Henker benutzt du nen String für einen einzelnen Buchstaben?

Matze 26. Feb 2004 11:15

Re: Nächsten Buchstaben im Alphabet
 
Gute Frage, also Byte wäre auch gegangen ;)

Schubi 26. Feb 2004 11:48

Re: Nächsten Buchstaben im Alphabet
 
*arg*
Wie wärs mit dem Typ, der dafür vorgesehen ist: Char (Zu deutsch: BUCHSTABE) :mrgreen:

Matze 26. Feb 2004 11:48

Re: Nächsten Buchstaben im Alphabet
 
Dann halt so :angle2: :duck:


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:07 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz