hi, ich schreibe gerade gerade eine pos funktion (falls ich die
vcl mal nicht mitverwenden möchte)...
ich weiss das es wohl nich die beste möglichkeit ist, aber hauptsache es funktioniert...
Delphi-Quellcode:
function pos(sub, s: string; const cs: boolean = false): integer;
var
tmp, sublen: string;
idx: integer;
begin
result := 0; idx := 0;
if (sub <> '') and (s <> '') then
while ((length(s) >= length(sub))) and (result = 0) do
begin
sublen := length(sub);
setstring(tmp, pchar(s), sublen);
inc(idx);
if ((cs) and (lstrcmp(pchar(tmp), pchar(sub)) = 0)) or
((not cs) and (lstrcmpi(pchar(tmp), pchar(sub)) = 0)) then
begin
result := idx;
exit;
end;
//hier "s[1]" löschen
end;
end;
kann mir jemand sagen wie ich einen bestimmtem teil eines strings lösche (siehe kommentar) ?