etwas ganz simples, aber irgendwie ist heut der wurm drin ..
ich habe eine "for schleife" und er soll den ganzen text zeichen für zeichen durchgehen (to length)
das macht er auch wunderbar, aber er fügt der Liste nicht mehr als EINE Positionsangabe hinzu, selbst wenn er es eigentlich müsste.
Code:
for i:= 1 to length(text) do
begin
if (text[i] = 'i') and (text[i+1] = 'm') and (text[i+2] = 'g') then begin
position_g := Pos('img', text);
s1 := TStringList.Create; // StringList erstellen
try
s1.Add(inttostr(position_g)); // in SteringList aufnehmen
finally
Memo1.Text := s1.Text;
s1.Free; // Speicher freigeben
end;
end
else
end;
end;
Nachdem ich die forensuche mal angeschmissen hatt, habe ich halt noch "continue" und" writeln" hinzugefügt
aber ohne Erfolg.
Bin für jeden Denkanstoß dankbar!