einzelnes Zeichen erhalten

[maximus Caesar]

Hallo!
Ich habe einen String.
Aus diesem will ich ein einziges Zeichen herausschneiden.
Irgedwie funkitioniert das mit meinem Code nicht.
Ich hab wahrscheinlich nur nen Denkfehler.
Hier der Code:

Delphi-Quellcode:

function TForm1.GetZeichen(Text:String;Nummer:Integer):String;
begin
 delete(Text,0,Nummer-1);
 delete(Text,Nummer+1,length(Text));
 result:=Text;
 showmessage(result);
end;

Text ist der String, Nummer gibt an, welches Zeichen ich zurückgeliefert haben möchte.
Bsp: Text: Delphi-Praxis Nummer: 4 Ergebnis: p

[Mr_G]

Wie ware es mit:
Copy(Text, Nummer, 1);

[SirThornberry]

am einfachsten geht es so

Delphi-Quellcode:

function TForm1.GetZeichen(Text:String;Nummer:Integer):String; 
begin 
  result := Text[Nummer];
end;

und da es so einfach ist kann man es eignetlich auch gleich so schreiben und braucht keine funktion dafür.

[maximus Caesar]

Danke!
Also ein Denkfehler gehabt...

[SirThornberry]

wenn du die beiden zeilen mit "delete" vertauschst sollte es auch gehen. Denn in deinem fall schneidest die die vorderen zeischen weg. Dadurch wandern die von weiter hinten natürlich nach vorne und schon stimmt die zweite delete anweisung nicht mehr. Deswegen von hinten mit weg schneiden beginnen.