Eure besten Quellcode Kommentare...

[JanWe]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x : Integer;
s, t, u: String; [...]
begin
if lenght(t) <= 0 then msgboxDLG("FEHLER","findet nix",[mbOK],0);
exit; // für Fehlersuche, falls t leer ist
for i := 1 to x do
  begin
  [...]
  end;
Edit1.text := s;
end;

Zitat:

»ich weiß garnicht, "s" bleibt immer leer. Sieht einer, warum?