datei neu speichern, wenn nicht vorh.

[Master-Joko]

naja - @ markus , ich weiß ja net, ob du es an den augen hast, aber was zwei begin hat - hat bei mir auch zwei end....

hmm . ... . . .

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, ComCtrls, StdCtrls, ExtCtrls, DBCtrls, IdLogBase,
  IdLogFile, IdIntercept, IdTCPServer, IdFTPServer, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdFTP, dblookup;

type
  Thaupt = class(TForm)
    exit_button: TButton;
    generate_button: TButton;
    RadioGroup1: TRadioGroup;
    XPManifest1: TXPManifest;
    apps: TRadioButton;
    movies: TRadioButton;
    games: TRadioButton;
    mixed: TRadioButton;
    Rulez: TRadioGroup;
    upper: TCheckBox;
    upperedit: TEdit;
    leecher: TCheckBox;
    leechedit: TEdit;
    upload: TCheckBox;
    uploadedit: TEdit;
    profil: TCheckBox;
    uploadlink: TCheckBox;
    Timer1: TTimer;
    Label1: TLabel;
    Memo1: TMemo;
    IP: TEdit;
    Pfad: TEdit;
    IdFTP1: TIdFTP;
    IdFTPServer1: TIdFTPServer;
    IdConnectionIntercept1: TIdConnectionIntercept;
    IdLogFile1: TIdLogFile;
    special: TRadioGroup;
    pn_betreff: TCheckBox;
    pn_fertig: TCheckBox;
    pn_special_box: TComboBox;
    bevorzugte: TEdit;
    pn_special: TCheckBox;
    CheckBox_bevorzugte: TCheckBox;
    procedure exit_buttonClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure generate_buttonClick(Sender: TObject);
    procedure pn_specialClick(Sender: TObject);
    procedure CheckBox_bevorzugteClick(Sender: TObject);
  private
   Zaehler: Integer;

    { Private declarations }
  public

    { Public declarations }
  end;

var
  haupt: Thaupt;
     sl: TStringList;
implementation

{$R *.dfm}

procedure Thaupt.exit_buttonClick(Sender: TObject);
begin
Application.Terminate;
end;


procedure Thaupt.Timer1Timer(Sender: TObject);

var
Text: AnsiString;
begin
Text := 'Lalalaaalalaaaalala nix wichtiges!!!                        ';
Inc(Zaehler);
Label1.Caption := Copy(Text,Zaehler,600);
 if Zaehler + 200 > Length(Text) then
  Label1.Caption := Label1.Caption + Copy(Text,1,200 - (Length(Text) - Zaehler));
 if Zaehler = Length(Text) then Zaehler := 0;
end;

procedure Thaupt.generate_buttonClick(Sender: TObject);

begin
 if not FileExists('Content.txt') then
    begin
      sl:=TStringList.Create;
      try
      sl.Add('Content.TXT wurde nicht gefunden!');
      sl.Add('Datei neu erzeugt');
      sl.SaveToFile('Content.TXT');
      finally
      sl.free;
      memo1.clear;
      memo1.Lines.LoadFromFile('Content.TXT');
    end;
end;




procedure Thaupt.pn_specialClick(Sender: TObject);
begin
if pn_special.Checked = true then
  Begin
     pn_special_box.visible := true;
  end;

if pn_special.Checked = false then
  Begin
     pn_special_box.visible := false;
  end;

end;

procedure Thaupt.CheckBox_bevorzugteClick(Sender: TObject);

begin
if CheckBox_bevorzugte.Checked = true then
  begin
    bevorzugte.visible := true;
  end;
if CheckBox_bevorzugte.Checked = false then
  begin
    bevorzugte.visible := false;
  end;

end;

end.



program ContentMaker;

{%File 'Content.txt'}

uses
  Forms,
  main in 'main.pas' {haupt};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Thaupt, haupt);
  Application.Run;
end.

hier ist nun mal der ganze code - aber es läuft wirklich nicht...

ich kanns einfach nicht verstehen!!!!!!!!!!