Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
27. Dez 2005
Danke, ich hab es jetzt richtig. :coder:
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
27. Dez 2005
Ist wohl noch einnbisschen früh für mich :drunken:
procedure DateiUeberschreiben(pfad: string; groesse: integer);
const
mychar :shortstring = ('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!"§$%&/()=?~+,.-{}²³\|*');
var
i, a : integer;
zeichen: Char;
datei: file of char;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
27. Dez 2005
datei ist vom Typ File of Char. Ich denke, da brauche ich assign, oder habe ich das missverstanden? Wenn ich PChar weglasse, kommt die selbe Fehlermeldung.
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
27. Dez 2005
procedure DateiUeberschreiben(pfad: string; groesse: integer);
const
mychar :string = ('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!"§$%&/()=?~+,.-{}²³\|*');
var
i, a : integer;
zeichen: Char;
datei: file of char;
begin
for a := 1 to 10 do
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
26. Dez 2005
Nein, ich bae
datei: file ;)
Alle anderen Vorschläge nehme ich gerne an. Ich wollte ja erstmal ganz simpel versuchen, eraser (dateien komplett löschen, dass man sie nicht mehr wiederfinden kann :)) nachzuproggen. das war erstmal ein kleiner ansatz. falls ihr für mein programm ein paar ideen habt, könnt ihr ja sie gerne posten. Nich tdenken, dass das gleich in die freeware sparte kommt ^^,...
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
26. Dez 2005
Verzeichnis ist vom Typ TEdit. der Pfad im Edit namens Verzeichnis stammt aus einem opendialog. :)
danke. aber wie wandel ich char in string? chartostr ... muss ich mal teten ^^
Forum: Sonstige Fragen zu Delphi
Delphi
by Chrissi91,
26. Dez 2005
Meine Procedure:
procedure DateiUeberschreiben(pfad: string; groesse: integer);
var
i, a, zufall: integer;
zeichen: string;
begin
for a:= 1 to 10 do
begin
assign(datei,pfad);