Problem mit ReadString, Immer Def

[Fussel9]

Wie schon gefragt:

Wozu Konstanten?








PS: Es funktioniert alles, also bis jetz habe ich keine Probleme....^^

[DeddyH]

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.

[Fussel9]

ok, aber da ich es nur an zweistellen benutze kann ich STRG+C und STRG+V benutzen

[DeddyH]

Mach, was Du willst, aber komm mit hinterher nicht an, wenn etwas wegen Tippfehlern danebengeht.