Delphi einzelnes Zeichen erhalten

Thema durchsuchen

Ansicht

Themen-Optionen

einzelnes Zeichen erhalten

Ein Thema von maximus Caesar · begonnen am 9. Sep 2005 · letzter Beitrag vom 9. Sep 2005

Vorheriger Beitrag

Nächster Beitrag

maximus Caesar

Registriert seit: 26. Sep 2004
Ort: Biberach
319 Beiträge

Turbo Delphi für Win32

einzelnes Zeichen erhalten

9. Sep 2005, 18:34

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:

markieren

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