Ich will n memo nach nem string durchsuchen ganz normal...das hat auch alles funktioniert.
Aber als ich dann aus einem String was löschen wollte sagt er immer:
Constant object cannot be passed as var Parameter
Delphi-Quellcode:
while i<=memo4.Lines.Count-1 do
begin
if pos('http://lix.in/',memo4.Lines[i])>0 then
begin
q:= pos('http://lix.in/',memo4.Lines[i]);
for p:= Pos('http://lix.in/', memo4.Lines.Strings[i]) to length(memo4.Lines.strings[i]) do
if (Memo4.Lines.Strings[i][p] <> ' ') then
begin
s := s + Memo4.Lines.Strings[i][p];
end
else
begin
break;
delete(memo4.lines.strings[i],q,p);
end;
memo3.Lines.Add(s);
s:='';
end;
end;
i:=i+1;
end;
Ich dreh durch...selbst wenn ich da delete('test',1,2) einsetze sagt er dass gleiche...
Markiert aber diese Zeile als Fehlerquelle...
Habe delphi 6 personal english
Vielen Dank im Vorraus.