Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi x. Stelle in einem String auslesen (https://www.delphipraxis.net/70841-x-stelle-einem-string-auslesen.html)

Scorpion 5. Jun 2006 16:32


x. Stelle in einem String auslesen
 
Hallo,

ist es möglich, wie in Java die x. Stelle in einem String auszulesen. Sagen wir die 2. ? Und wenn ja, wie geht das einfacher?

Zacherl 5. Jun 2006 16:34

Re: x. Stelle in einem String auslesen
 
Hi,
ganz einfach indem du den String wie ein Array of Char behandelst und dann einfach so auf die einzelnen Zeichen zugreifst String[2].
//Edit: alternativ mit Copy(String, 2, 1);

Florian

Scorpion 5. Jun 2006 16:37

Re: x. Stelle in einem String auslesen
 
Hi, das wäre auch meine Variante gewesen, aber vielen Dank. Dachte es geht vielleicht mit String[...] oder so ??

pacman1986 5. Jun 2006 16:40

Re: x. Stelle in einem String auslesen
 
Zitat:

Zitat von Florian Bernd
......String[2].

Zitat:

Zitat von Scorpion
String[...] oder so ??

wie schon gesagt ja 0 ist die erste postion ....

Delphi-Quellcode:
string := pacman;
string[1] wäre dann a

Zacherl 5. Jun 2006 16:42

Re: x. Stelle in einem String auslesen
 
Jaja. Beispiel:
Delphi-Quellcode:
var
  s: string;
begin
  s := 'Dies ist ein Test';
  ShowMessage(s[2]); //Gibt "i" aus
  ShowMessage(Copy(s, 2, 1)); //Gibt auch "i" aus.
end;
//Edit: Normale, also nicht nullterminierte Strings beginnen mit 1. Ein Zugriff auf die 0te Stelle ist dann auch nicht möglich.
Zitat:

string[1] wäre dann a
Stimmt insofern afaik nicht. So ginge es z.B. bei PChar, welcher nullterminiert ist.

Ultimator 5. Jun 2006 16:45

Re: x. Stelle in einem String auslesen
 
@pacman1986: Ach so :roll:
Strings sind immernoch 1-basiert.
Delphi-Quellcode:
AStr := 'pacman';
ShowMessage(AStr[1]);
Die Nachricht wird dir 'p' ausspucken.

//edit: Die rote Box funzt wiedermal wie ne 1 :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:06 Uhr.

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