Nächsten Buchstaben im Alphabet

[Lord_Stifterl]

Hi liebe DPler,

wie kann ich den nächsten Buchstaben im Alphabet herausfinden?

LG
Lord_Stifterl

[Cuchulainn]

Du kannst mit dem Ascii-Code arbeiten. Sieh dir dazu mal die Funktionen Ord und Chr an.

Beispiel: Mit Ord('A') bekommst du den Ascii-Code von A, also 65. B ist 66, C 67.

[fkerber]

Hi!

Relativ zu was?

Der nächste zu a ist b, der nächste zu y ist z :-D

Spaß beiseite:

a ist #97
b ist #98
etc.

Ciao fkerber

[Matze]

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := NextLetter(Edit1.Text);
end;

Edit1: Delphi-Tags vergessen :oops:
Edit2: Zu langsam. :(

[Lord_Stifterl]

Wunderbar, Problem gelöst.

Danke Euch allen.

LG
Lord_Stifterl

[nailor]

Ich würde lieber nen array machen, mit allen Buchstaben drin. Dann den Index suchen, und eins weiter gehen. Ist besser, wenn man z.b. Sonderzeichen hat.

PS: String dürfte reichen, kein array

[Stanlay Hanks]

Hi.
@Nailor aber das Alphabet hat doch keine Sonderzeichen :gruebel:

[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;

[nailor]

Zitat:

Zitat von Stanlay Hanks

Hi.
@Nailor aber das Alphabet hat doch keine Sonderzeichen :gruebel:

okok... aber schon beim z gibts probleme

[Stanlay Hanks]

Zitat:

Zitat von Nailor

Zitat:

Zitat von Stanlay Hanks

Hi.
@Nailor aber das Alphabet hat doch keine Sonderzeichen :gruebel:

okok... aber schon beim z gibts probleme

Kapier ich nicht :oops: Kannst du mir das erklähren? :oops:

[nailor]

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]

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]

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]

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]

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]

@ Matze: Und warum zum Henker benutzt du nen String für einen einzelnen Buchstaben?

[Matze]

Gute Frage, also Byte wäre auch gegangen ;)

[Schubi]

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

[Matze]

Dann halt so :angle2: :duck: