Hallo,

wie kann ich ein bestimmtes Zeichen aus einem bestimmten Element einer Stringlist auslesen?

Beispiel:

3. Zeichen im Element mit dem Index 6.

Wie mache ich das?

Vielen Dank

Du hast eine indizierte Liste von Strings, und ein String ist eine indizierte Liste von Chars. Was also spricht gegen StrList[5][3]?

Hallo

Bitte beachte die 5 um an den 6.String der StringListe zu kommen, da der index hier 0 basiert ist. (0..5). Desweiteren ist aber in einem String der Zeichenindex 1 basierend!
Auch solltest du am besten vorher checken, daß die positionen auch besetzt sind.

zusammenfalten · markieren

Delphi-Quellcode:

function MyGetChar(Const aStrings:tStrings; iLine,iPos:integer):Char;
var
  sTmp:String;
begin
  { Safety }
  Result := #0;
  sTmp := '';
  { Mainwork }
  If (iLine>=0) and (iLine<aStrings.Count) then
    begin
      sTmp := aStrings[iLine];
      if (Length(sTmp)>=iPos)
        then Result := sTmp[iPos];
    end;
end;

okay vielen dank!
eine andere sache...

kann ich innerhalb der stringlist die elemente einfach verschieben?
warum ich frage ist die sache, dass bei

List.Exchange(i-1,i+ StrToInt(Schluessellist[i-1])); der fehler auftritt, dass das Listenmaximum überschritten wird.

Zitat von mo_greene:

List.Exchange(i-1,i+ StrToInt(Schluessellist[i-1])); der fehler auftritt, dass das Listenmaximum überschritten wird.

Ich schätze mal i+ StrToInt(Schluessellist[i-1]) wird zu groß...
der Debugger hilft...

mfg

Christian

Zitat von r2c2:

Zitat von mo_greene:

List.Exchange(i-1,i+ StrToInt(Schluessellist[i-1])); der fehler auftritt, dass das Listenmaximum überschritten wird.

Ich schätze mal i+ StrToInt(Schluessellist[i-1]) wird zu groß...
der Debugger hilft...

mfg

Christian

verstehe ich nicht ganz
debugger? was kann ich tun, damit das listenmaximum nicht überschritten wird?

Hallo,

TList und alle ihre Nachfahren beiten die Methode Move an, mit der du Elemente verschieben kannst.

Bei

List.Exchange(i-1,i+ StrToInt(Schluessellist[i-1])); und
List.Move(i-1,i+ StrToInt(Schluessellist[i-1])) entsteht der gleiche Fehler!

Debugger

mfg

Christian

Ich konnte nichts finden...die Variablen stimmen alle

Ich verstehe auch nicht warum das zu groß ist?

markieren

Delphi-Quellcode:

  for i := 1 to length (Schluessel) do
  begin
    List.Exchange(i-1,i+ StrToInt(Schluessellist[i-1]));
    List.Sort;
  end;

Das Programm macht ja schon beim ersten Durchlauf (i=1) einen Fehler.
Folgendes steht ja dann da:

List.Exchange(0, 1 + {Ziffer im Element mit dem Index 0 in der Schluessellist}); Ich versteh das nicht?!