Ergebnis der Suchanfrage

• Forum: Lazarus (IDE)

  AW: Vergleich von zwei eindimensionalen Arrays

   
    by Delphi.Narium, 22. Mär 2019
  Nachdem ich dashier Über den Umgang mit Boolean gelesen habe, habt Ihr mich überzeugt:procedure TForm1.b_vergleichClick(Sender: TObject);
  const
  csErfolg = 'Es gibt eine Übereinstimmung in beiden Arrays!' + #13
  + 'Es handelt sich um den Wert %d,' + #13
  + 'der sich in Array 1 an Position %d' +#13
  + 'und in Array 2 an Position %d befindet.';
  csMisserfolg =...
• Forum: Lazarus (IDE)

  AW: Vergleich von zwei eindimensionalen Arrays

   
    by Delphi.Narium, 22. Mär 2019
  weils kürzer aussieht ;)
  case v of
  true : s := Format(csErfolg,,i,j]);
  else
  s := csMisserfolg;
  end;
  Besser? ;-)
• Forum: Lazarus (IDE)

  AW: Vergleich von zwei eindimensionalen Arrays

   
    by Delphi.Narium, 22. Mär 2019
  Eventuell sowas? (nur hingedaddelt und ungetestet)
  procedure TForm1.b_vergleichClick(Sender: TObject);
  const
  csErfolg = 'Es gibt eine Übereinstimmung in beiden Arrays! ' + #13
  + 'Es handelt sich um den Wert %d, ' + #13
  + 'der sich in Array 1 an Position %d ' +#13
  + 'und in Array 2 an Position %d befindet.';
  csMisserfolg = 'Es gibt keine Übereinstimmung...