Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Hatt geklappt.
Danke für die Geduld und Hilfe :stupid: :mrgreen: :thumb:
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
procedure TForm1.FormCreate(Sender: TObject);
var Pfad:string;
begin
ListBox1.Items.LoadFromFile(Pfad); Pfad := ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt';
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile(Pfad);
end;
oder??
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
also noch hinzufügen
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('Lateinliste.txt');
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
also jetzt hats irgendwie funktioniert nur es speichert immer nur das was ich bis zur programmschlißung geschrieben hab. Also wenn ich das Programm neustarte und etwas eingebe komm in dem Textdokument nur das Eingegebene von diesem mal.
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Ja geb die wörter ein, klick auf den Button, schließ das Programm und dann im Explorer zum Textdokument
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Also es kommt keine Fehlermeldung nichts.
ich geb ein paar wörter ein.
Dann geh ich im explorer (in windows) auf den Pfad wo ich das Textdukument erstellt habe, öffne es und sehe nichts (also es wird nichts reingeschrieben)
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
mmhh was soll ich sagen!?!?
procedure TForm1.Button1Click(Sender: TObject);
var l,d,Pfad:string;
begin
l:=edit1.text;
d:=edit2.Text;
label5.caption:=l+ ' - '+d;
listbox1.Items.add(label5.caption);
edit1.Clear;
edit2.Clear;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
bei mir funktioniert es auch aber wenn ich im Explorer auf Lateinliste.txt geh sehe ich kein einziegen Buchstaben
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Das laden der Datei ist ja nicht mal das wichtigste, sondern eigentlich nur das speichern
procedure TForm1.Button1Click(Sender: TObject);
var l,d,Pfad:string;
begin
l:=edit1.text; Pfad:='F:\Delphi\Lateinliste.txt';
d:=edit2.Text;
label5.caption:=l+ ' - '+d;
listbox1.Items.add(label5.caption);
edit1.Clear;
edit2.Clear;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Turbo Delphi Explorer 2006
SysUtils ist eingefügt
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Dann heißt aber : Nicht deklarierter Bezeichner extractfilepath
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Pfad := ExtrcatFilePath(ParamStr(0)) + 'liste.txt';
was muss ich für Pfad (F:\...\...)eingeben? oder isr das eine variable (intger,real,..)?
Forum: Object-Pascal / Delphi-Language
Delphi
by Hans33,
24. Nov 2008
Hi
bei mir gibts ein Problem beim speichern einer List Box.
Es kommt eine Fehlermeldung: 'F:\Delphi\Liste\liste.txt' kann nicht geöffnet werden. Das system kann die angegebene Datei nicht finden.
Aber in dem Ordner hab ich die datei liste.txt erstellt.
Mein Code:
procedure TForm1.Button1Click(Sender: TObject);
var l,d:string;
begin
l:=edit1.text;