Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.548 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Problem mit ReadString, Immer Def

  Alt 17. Jun 2010, 17:34
Ganz einfach:
Delphi-Quellcode:
procedure TForm1.Blubb;
begin
  Machwas('Ich bin ein ganz langer String');
end;

procedure TForm1.Bla;
begin
  Machwasanderes('Ich bin ein ganz langer String');
end;

procedure TForm1.Wuppdi;
begin
  Machnochwasanderes('Ich bin ein ganz langer String');
end;
Hier ist 3 mal derselbe String gemeint. Will man den mal ändern, muss man das an allen 3 Stellen tun.

Dazu im Vergleich:
Delphi-Quellcode:
const LangerString = 'Ich bin ein ganz langer String';

procedure TForm1.Blubb;
begin
  Machwas(LangerString);
end;

procedure TForm1.Bla;
begin
  Machwasanderes(LangerString);
end;

procedure TForm1.Wuppdi;
begin
  Machnochwasanderes(LangerString);
end;
Wie oft muss man hier ändern? Kann man sich vertippen, ohne dass der Compiler meckert? Wird der Quelltext kürzer und übersichtlicher? Diese Fragen kannst Du Dir selbst beantworten.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat