Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Mein Delphi-Style

    Delphi
    by jfheins, 17. Mai 2009
  Oh ...
  
  Also ich füge dich gerne auch einfach mal so ein ... hier mal ne rekursive Funktion:procedure TFtpBrowser.ChangeDir (ADir: String);
  begin
  Working := True;
  
  if (ADir = '.') or (ADir = '') then
  begin
  TriggerLogEvent('Receiving directory listing', etStatus);
  FFiles.Clear;
• Forum: Object-Pascal / Delphi-Language

  Re: Mein Delphi-Style

    Delphi
    by jfheins, 17. Mai 2009
  Wenn schon alle ihren Code zur Schau stellen mach ich das jetzt mal auch :mrgreen:
  
  Ich bilde mir ein, relativ nah (bis auf 1-2 Sachen) am Styleguide zu programmieren, aber seht selbst ;)
  
  Ich mache gerne sowas:procedure TFtpBrowser.CreateItemFromFileInfo(const FileInfo: TFileInfo);
  var
  ListItem: TListItem;
  begin
  if FileInfo.Filename <> '.' then
  begin