Forum: Programmieren allgemein
by Satty67,
24. Apr 2009
Könnte noch fehlerhaft sein, die Beispielzeichenkette aus dem Startpost findet der Code aber:
function GetBiggestTwin(aText : String) : String;
var
window, offset, TextLen : Integer;
TestText, RestText : String;
begin
TextLen := Length(aText);
Result := '';
for window := (TextLen div 2) downto 1 do begin
Forum: Programmieren allgemein
by Satty67,
24. Apr 2009
ich hab' noch keine Idee, aber spontan ist mir eingefallen, das man es von hinten aufzäumen könnte. Da dort die Grenzen noch offensichtlicher sind, ist ein Code leichter gefunden
Man holt sich also den größt möglichen Ausschnitt, der doppelt vorkommen kann (length div 2) und vergleicht den mit dem Rest.
Gleich, dann gefunden
Ungleich, dann Ausschnitt ein Wert (Byte/Zeichen) kürzer. Ab...