function die den kürzeren von 2 strings zurückgibt?

[Ignazo]

oke hab mir einen schicken dreizeiler gebastelt

Code:

 
  if length(str1)>length(str2) then strkurz:=str1
  else if  length(str1)<length(str2) then strkurz := str2
  else strkurz='gleich';

das wär schon wieder was für meine functionsU-Unit
muss ich gleich rüber
wär aber trotzdem schön wenn es da von delphi schon eine function gäbe(es gibt ja immerhin auch min() usw.)