String intelligent Kürzen

[BBoy]

@himitsu,
Bei           if not (U in US) then begin kommt "[DCC Fehler] 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.

Noch mal vielen Dank ihr beiden....

[himitsu]

.s = jupp

und das Until sollte so stimmen ... Wieso, was stimmt denn daran nicht?

[BBoy]

Sorry, aber mal ganz blöd gefragt, wie rufe ich diese funktion auf?

memo1.text := KuerzeDateiname(edit1.Text,14, ??) < was kommt da hin?

[mkinzler]

Eine Funktion, welche wagr oder falsch zurückliefert, je nachdem ob gekürzt werden darf oder nicht

[BBoy]

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?

[mkinzler]

Die Funktion bekommt den aktuellen String als parameter. Anhand diesem muss sie entscheiden, ob dieser ok ist.

Delphi-Quellcode:

function SchonOK( s: string): Boolean;
begin
   ...
end;

...
memo1.text := KuerzeDateiname(edit1.Text,14, SchonOK);

[BBoy]

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 werden. So wird also eine ziffer als zu kurz gewertet und gelöscht:

Delphi-Quellcode:

        if Length(SL[i]) = 1 then begin
          if not (U in US.s) then begin
            SL.Delete(i);
            Dec(Len);
          end;

zu was ist eigentlich der Record US da?