Hallo FriFra,
funktioniert das bei dir?
Delphi-Quellcode:
// funktioniert nur bei fortlaufender ID
function GetMaxStringID(start: integer): integer;
begin
Result := start;
while SysUtils.LoadStr(Result) <> '' do
Inc(Result);
if Result = start
then Result := -1
else Result := Result - 1;
end;
D7 kam übrigens mit einer Demo für einen Resource Explorer - vielleicht gibt es den auch noch unter D2005?
Grüße vom marabu