Jest funkcja "odwrotna" do Pos? Tzn. podaję stringa i indeks, a ta zwraca mi znak w tym stringu pod podanym indeksem.
Nigdzie na forum czegoś takiego nie znalazłem, w pomocy do delphi - nie ma.. ;-(
[Dopisane:] Ja to głupi jestem... Trzeba było pomyśleć i zrobione...
function OdwrPos(S: string; I, Dlg: integer) : String;
begin
Result := Copy(S, I, Dlg);
end;
Funkcja zwraca string pod podanym indeksem w podanym stringu o podanej długości
var
S: string;
Indeks: Integer;
begin
ShowMessage(S[Indeks]);
end;
dzięki, Dryo, chyba zastosuje Twój sposób...
var
S: string;
Indeks: Integer;
begin
ShowMessage(S[Indeks]);
end;
trzeba wspmnieć o jeszcze jednym. Musi być spełniony warunek:
Indeks > 0 czyli od 1 do Length(S);