Delphi - finden, Charakter einer bestimmten position/index

Ich habe gesucht alle über für diese. In Delphi/Lazarus, eine position, I want zu finden, das Zeichen an dieser position in einem anderen string. Ich weiß, wie man die position eines Zeichens. Ich brauche es anders herum: das Zeichen an einer bestimmten position. Vielen Dank im Voraus.

InformationsquelleAutor preahkumpii | 2012-07-18
  1. 12

    In Delphi, ein Zeichen in der Zeichenkette indiziert werden können, indem die array Schreibweise verwendet. Beachten Sie, dass nur der erste Buchstabe im string hat einen index von eins.

    var
  s: string;
  c: char;
begin
  s := 'Hello';
  c := s[1]; //H
end;
    • Hinweis: Figuren sind 1-basiert.
    InformationsquelleAutor Hemant
  2. 5

    Einem string zugegriffen werden kann wie ein array.

    MyString[12] gibt Ihnen die 12 Zeichen in der Zeichenfolge.
    Hinweis : Dies ist 1-index (weil die 0. position verwendet, um zu halten die Länge der Zeichenfolge)

    Beispiel :

    var
  MyString : String;
  MyChar : Char;
begin
  MyString := 'This is a test';
  MyChar := MyString[4]; //MyChar is 's'
end;
    InformationsquelleAutor Lars Bargmann
  3. 1

    Diese wurde zuletzt beantwortete im Jahr 2012, so dachte, ich würde nur hinzufügen, ein update:

    Für die neueste version von Delphi (Derzeit Tokyo Edition -, die über mehrere Plattformen mit FMX-framework), das StringHelper-Klasse bietet eine cross-Plattform-Charakter index-Lösung. Diese Umsetzung übernimmt ein 0-basierter index für alle unterstützten Plattformen.

    zB. 

    var
  myString: String;
  myChar: Char;
begin
  myChar := myString.Chars[0]; 
end;
    InformationsquelleAutor Danie van Eeden
  4. 0
    // AIndex: 0-based
function FindCharactedOfStringFromIndex(const AString: String; const AIndex: Integer): Char;
const
  {$IFDEF CONDITIONALEXPRESSIONS}
    {$IF CompilerVersion >= 24}
    STRING_FIRST_CHAR_INDEX = Low(AString);
    {$ELSE}
    STRING_FIRST_CHAR_INDEX = 1;
    {$ENDIF}
  {$ELSE}
  STRING_FIRST_CHAR_INDEX = 1;
  {$ENDIF}
var
  index: Integer;
begin
  index := STRING_FIRST_CHAR_INDEX + AIndex;
  Result := AString[index];
end;
    InformationsquelleAutor Jacek Krawczyk
Schreibe einen Kommentar