Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
13. Feb 2011
Immerhin wollte er nicht über einen Modemsimulator Mails empfangen :mrgreen:
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
12. Feb 2011
Da nimmt er mal wieder die Pointe vorweg ;)
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
12. Feb 2011
Darum konnte ich über das ausgelobte Fass Bier ja auch lachen :mrgreen:
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
12. Feb 2011
Das war ein Satz mit X
Man muss halt genau schauen, wo die Datei hinwandert ;)
Somit lässt sich Delphi 3 vera****** und Delphi 2010 bekommt das mit ;)
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
12. Feb 2011
Das möchte ich erst sehen ... Lade doch mal ein kompiliertes Projekt hoch, was einfach so in den geschützten Ordnern schreiben kann.
Ich probiere das gerne aus um den Gegenbeweis anzutreten.
Ich habe da so eine Vermutung, aber mach mal ;)
Ach ja, wenn es klappt, dann stifte ich ein Fass Bier
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
11. Feb 2011
Das habe ich jetzt gerade mal durch Delphi 2010 auf Win 7 x64 durchlaufen lassen:
type
TMyRec = record
name : string;
Email : string;
end;
procedure TForm1.FileSaveAs1Accept( Sender : TObject );
var
MyFile : file of TMyRec;
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
11. Feb 2011
Das mit dem "ich will keinen Pfad angeben" ist schon grenzwertig ... erklärt aber den Fehler soweit noch nicht.
Welchen Fehler bekommst du denn jetzt bei ShowMessage?
type
MyRec = record
name : string;
email : string;
end;
var
MeineDatei : File Of MyRec;
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
19. Jan 2011
Gebt mir ein D
Gebt mir ein E
Gebt mir ein L
Gebt mir ein Fluchtwagen :mrgreen:
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
19. Jan 2011
Lies es nochmal durch:
Du hast dir in dem Verzeichnis ausgeführt, wo die Daten-Datei liegt! ;)
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
19. Jan 2011
Darum sollte er ja auch die Fingerübung mit dem dir Befehl machen ;)
(Obwohl er ja nicht wirklich das macht, was man ihm sagt)
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
19. Jan 2011
Na denn
begin
ComboBox1.Items.Clear;
i := 0;
{$I-}
sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt.txt'; // <-- so heißt die Datei :o)
AssignFile( fahrerliste, sFileName );
try
Reset( fahrerliste );
{$I+}
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
19. Jan 2011
oder es würde auch folgendes funktionieren
begin
ComboBox1.Items.Clear;
i := 0;
{$I-}
sFileName := ExtractFilePath( Application.ExeName ) + 'data\dri\dri.txt';
AssignFile( fahrerliste, sFileName );
try
if FileExists( sFileName ) then
Reset( fahrerliste )
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
19. Jan 2011
Öffne bitte mal eine Eingabeaufforderung in dem Verzeichnis, wo die Anwendung liegt.
Dort führst du mal diesen Befehl aus:
dir /s >listing.txt
Die Datei listing.txt schieb dann mal hier hoch, dann sehen wir, wo die Datei steckt
Deine Formatierung ist sehr grauslich zu lesen, hier mal in leserlich
begin
ComboBox1.Items.Clear;
i := 0;
{$I-}