Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 20. Jun 2011
  Wie gesagt, bin sehr zufrieden mit der Mischung aus beiden Versionen. Funktioniert 1A und nach einigem grübeln und Studieren habe ich den Code auch verstanden. Also alles bestens. Danke. Habe nun schon hunderte Bezeichnungen auf diese Art gekürzt und es war immer gut. Notfalls könnte ich auch von Hand nach editieren wenn es mal nicht passen sollte.
  
  Zahlen kommen nur selten vor. wenn dann...
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 19. Jun 2011
  Cool, das funktioniert sogar :)
  
  Nur damit ich es auch verstehe, zu was ist eigentlich der Record US da?
  
  Nochmal vieeeeelen Dank an euch zwei!! Die Funktion macht nun genau das was sie soll und das sogar besser als erwartet :-D
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 19. Jun 2011
  OK, dort überprüfe ich dann z.B. ob de Name schon vorhanden ist. Das funktioniert alles gut.
  Nur ist mir aufgefallen das Zahlen am Ende nicht berücksichtigt werden. Aus "Bellenkrappen Mannheim 2" macht er "BellenkMannhei" aber zahlen am Ende müssen immer erhalten bleiben.
  Wie könnte man das in der Version von himitsu noch nachbessern?
  thx
  
  Ich glaube es liegt daran das kurze wörter gelöscht...
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  Sowas hatte ich noch nie :? Das verstehe ich jetzt gar nicht. Ein False oder True ist es nicht. Was soll ich denn in diese funktion schreiben?
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  Sorry, aber mal ganz blöd gefragt, wie rufe ich diese funktion auf?
  
  memo1.text := KuerzeDateiname(edit1.Text,14, ??) < was kommt da hin?
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  @himitsu,
  Bei if not (U in US) then begin
  
  kommt " Unit2.pas(2299): E2015 Operator ist auf diesen Operandentyp nicht anwendbar" das soll wohl us.s heißen, oder?
  
  und am ende das until until Erlaubt(Result); kann auch nicht stimmen, wie soll das richtig heißen?
  
  
  @mkinzler, das würde mir auch genügen. Werde das später mal testen.
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  Wie ihr das so auf die schnelle hin bekommt :)
  
  Wie viele Buchstaben max. gelöscht werden sollen? Der String ist max. 128 Zeichen lang. Aber das kommt eigentlich nie vor. Schätze die max. länge des Strings auf etwa 50 oder 60.
  
  Bei der Version von himitsu stimmt zwar immer die Länge aber es werden nicht alle Worte ausgegeben. So wird aus "Lorscher Geschichte Laurissa" leider nur...
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  Hey echt cool was du da einfach so hervor zauberst, vielen Dank!! :thumb:
  
  Allerdings stimmt das Ergebnis manchmal nicht. So macht er aus "Lorscher Geschichte Laurissa" folgendes "LorsGescLaur" also nur 12 Zeichen anstatt 14. Und bei "Geschichte der La" macht er nur "GescderLa" 9 Zeichen.
  Woran liegt das? Leider verstehe ich deinen Code nicht genug um selbst den Grund zu finden.
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  Danke.
  
  
  Aber eben darin sehe ich ein Problem das ich nicht zu lösen weiß. Denn wenn wörter kürzer sind, soll es ja von den vorherigen dementsprechend mehr Buchstaben nehmen, aber auch das muss erst geprüft werden ob da genug vorhanden sind. Wenn nicht muss er vom nächsten Wort mehr Buchstaben nehmen aber auch da muss erst wieder geprüft werden ob es geht. Und genau das wir schwer finde...
• Forum: Sonstige Fragen zu Delphi

  AW: String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  Vor allem mit diesem Punkt habe ich Probleme: -Berechnung Buchstaben pro Wort: Restlänge ( 14 - Länge Zahl) / Anzahl Wörter
  Könnte mir das bitte jemand anhand dieses Beispiels erklären: aus "Lorscher Geschichte 'Laurissa'" sollte "LorschGescLaur" werden ?? Ein Codeschnipsel wäre super, da ich echt kein plan habe wie ich das machen soll.
• Forum: Sonstige Fragen zu Delphi

  String intelligent Kürzen

    Delphi
    by BBoy, 18. Jun 2011
  Habe folgendes Problem. Ein String der eine Bezeichnung enthält muss auf 14 Zeichen gekürzt werden. Aber nicht einfach abgeschnitten, sondern eben Intelligent.
  
  1. Aus der Bezeichnung sollen alle Sonderzeichen und Satzzeichen entfernt werden. nur a-z, A-Z und 0-9 sollen erhalten bleiben
  2. Ist am Ende der Bezeichnung eine Zahl so muss diese erhalten bleiben
  3. Aus der Bezeichnung sollen alle...