Главная страницаОбратная связьКарта сайта

Сравнить две строки и получить результат в процентах

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   Math;

 function DoStringMatch(s1, s2: string): Double;
 var
   i, iMin, iMax, iSameCount: Integer;
 begin
   iMax := Max(Length(s1), Length(s2));
   iMin := Min(Length(s1), Length(s2));
   iSameCount := -1;
   for i := 0 to iMax do
   begin
     if i > iMin then
       break;
     if s1[i] = s2[i] then
       Inc(iSameCount)
     else
       break;
   end;
   if iSameCount > 0 then
     Result := (iSameCount / iMax) * 100
   else
     Result := 0.00;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   match: Double;
 begin
   match := DoStringMatch("SwissDelphiCenter", "SwissDelphiCenter.ch");
   ShowMessage(FloatToStr(match) + " % match.");
   // Resultat: 85% 
  // Result  : 85% 
end;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Сравнить две строки и получить результат в процентах", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info