hi,
suchst du sowas in der art?
Delphi-Quellcode:
var i:integer;
SuchStr:String;
StrList:TStringList;
begin
SuchStr := 'Äpfel';
StrList := TStringList.Create;
showmessage(lowercase(suchstr));
for i := 0 to memo1.lines.count - 1 do begin
if trim(lowercase(copy(memo1.lines.strings[i], 1, length(suchstr)))) = lowercase(suchstr) then
//mach was du willst, z.b. das hier:
StrList.Add(copy(memo1.lines.strings[i], length(suchstr) + 2, length(memo1.lines.strings[i])));
end;
end;
habs jetzt net getestet, müsste aber funtzen...
achso wenn du dann mit den zahlen arbeiten willst, kannst du das dann strtoint