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.
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;