Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#11

Re: Text in 5er Buchstabengruppen anordnen

  Alt 29. Mär 2010, 17:23
Mal so ganz grundsätzlich:
Man sollte die Aufgabe "Text in 5er Buchstabengruppen anordnen" nicht direkt auf den Labels ausführen sondern eine saubere Funktion schreiben.
Delphi-Quellcode:
function Mach5erGruppen(const text:string):string;
var i:integer;
begin
  Result := text;
  for i := (Length(text) - 1) div 5 downto 1 do
    Insert(' ', result, i * 5 + 1);
end;
Ohne eine eigene Funktion sieht der Sourcecode wie ein Haufen Müll aus; man weiss eine Woche später nicht mehr was da eigentlich gemacht wird.
Andreas
  Mit Zitat antworten Zitat