Erstes Zeichen eines Strings auslesen?

[hircusmutzus]

Hi,

ich will aus einem String das erste Zeichen auslesen (+ in einer Variablen speichern) und dann löschen.
Danach will ich mit Case of auf das Zeichen reagieren, d.h. wenn das 1. Zeichen '1' ist, dann mach 1), wenn '2' dann 2) usw.
Nur krieg ich das nicht hin!
Kann mir bitte jemand helfen?

MfG Matthias Volland

[sakura]

Eigentlich ganz einfach. Ein String ist ein 1-basiertes Array von Character-Zeichen.

Delphi-Quellcode:

case strDummy[1] of 
  '0'..'9': ...
  'A'..'Z': ...
  'a'..'z': ...
  ....
end;

Du musst nur sicherstellen, dass mind. ein Zeichen vorhanden ist, ansonsten gibt es eine "Index out of Bounds" Exception ;-)

...:cat:...

[hircusmutzus]

Ja und wie kann ich dann das erste Zeichen löschen? das soll ja nur "sagen", was für eine Art Information der String hat, und den will ich ja nicht ausgeben!
z.B. ist '1' für Sport, '2' für Schule etc., nur will ich die Nummer nicht mit ausgeben!

[sakura]

Mit der Funktion Delete -> Hilfe ;-)

...:cat:...

[Flogo]

benutz einfach noch einen DummyString speicher deinen Sting da rein und kopier alles bis auf das erste Zeichen zurück

Code:

DummyStr := DeinStr;
DeinStr := copy(DummyStr, 2, length(DummyStr)-1);

müsste auch ohne Dummy gehen

Code:

DeinStr := copy(DeinStr, 2, length(DeinStr)-1);

[hircusmutzus]

Danke @Flogo, das funzt!
Den Befehl kannte ich noch nicht :oops:

MfG Matthias Volland

[Pseudemys Nelsoni]

wieso einfach wenns auch kompliziert geht....machs einfach mit delete wie oben schon jemand erwähnte:

Delphi-Quellcode:

Delete(string, 1, 1)

^^^^löscht das erste zeichen des strings