Forum: Multimedia
Delphi
by NicNacMan,
9. Aug 2006
Hi Onkelrossie,
die StrCompare() Funktion gibt nich an, ob das erste Zeichen gleich ist, sondern liefert die Anzahl der Zeichen, die beide Strings gemainsam haben.
StrCompare('Artikelx', 'Artikely') liefert also 7.
Änder mal in Zeile 28 den Wert von c0 auf 2.
Dann werden Artikel nur in eine Kategorie gepackt, wenn mindestens die ersten 3 Zeichen übereinstimmen.
Ich gehe mal davon aus,...
Forum: Multimedia
Delphi
by NicNacMan,
8. Aug 2006
Hi Onkelrossie,
da ich bald ein ähnliches Problem vor mir hab (es rückt auf meiner ToDo-List immer weiter nach unten :???: ), hab ich mich mal dran gemacht:
(Ich hab einfach mal deine Prozedur erweitert)
procedure TForm1.LVtoVST;
function StrCompare(s1, s2: String): Integer;
// Liefert die Anzahl der maximal übereinstimmenden Zeichen (vom Anfang).
var
i, min: Integer;