Thema
:
Delphi
Firebird [Order by]: alphanumerisch / numerisch
Einzelnen Beitrag anzeigen
omata
Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
Delphi 7 Enterprise
#
3
Re: Firebird [Order by]: alphanumerisch / numerisch
8. Jun 2009, 22:39
Vielleicht so...
zusammenfalten
·
markieren
SQL
-Code:
CREATE
PROCEDURE
LEN (STR
VARCHAR
(100)) RETURNS (LEN
INTEGER
)
AS
DECLARE
VARIABLE pat
VARCHAR
(100);
BEGIN
len = 0;
IF
(str
IS
NOT
NULL
)
THEN
BEGIN
pat = '
';
len = 0;
WHILE
(
NOT
str
LIKE
pat) DO
BEGIN
pat = pat || '
_
';
len = len + 1;
END
END
SUSPEND;
END
markieren
SQL
-Code:
SELECT
bez
FROM
personen
ORDER
BY
(
SELECT
len
FROM
Len(bez)), bez
Zitat
omata
Öffentliches Profil ansehen
Mehr Beiträge von omata finden