TStringlist Problem

FinnO · Verfasst: Sa 08.12.07 22:53

Und zwar habe ich folgendes Problem:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm7.Button1Click(Sender: TObject);

var Test: Tstringlist;
var name:string;

var i :integer;
var Voc :array of string;
begin
Name:=edit1.Text;
Test.loadFromFile(Unit5.Aktprofil+Name+'.txt');
end;

Die Stringlist möchte nicht laden. Ich denke mal, das liegt daran, dass man aus einer konstante Laden muss. Die Datei, aus der ich laden möchte setzt sich aber aus : Profilname(Aktprofil), Dateiname(hier Edit1.text) und .txt zusammen. Wie kann ich diese Datei laden ( Das Profil kann natürlich immer anders sein.

gispos · Beiträge: 94 WIN 7 XE10, D2007

FinnO hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:

begin
Name:=edit1.Text;
Test.loadFromFile(Unit5.Aktprofil+Name+'.txt');
end;

Unit5

Wo ist das Verzeichnis abgeblieben: C:\Unit5

Gruß gispos

Moderiert von Narses: Delphi-Tag repariert

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

FinnO hat folgendes geschrieben:

Und zwar habe ich folgendes Problem:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm7.Button1Click(Sender: TObject);

var Test: Tstringlist;
var name:string;

var i :integer;
var Voc :array of string;
begin
Name:=edit1.Text;
Test.loadFromFile(Unit5.Aktprofil+Name+'.txt');
end;

Die StringList musst du zuerst instanzieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Strings: TStringList;
begin
  Test := TStringList.Create;
  try
    Test.LoadFromFile(Unit5.Aktprofil+Name+'.txt');
    // ...
  finally
    Test.Free;
  end;
end;

FinnO · Verfasst: So 09.12.07 10:53

Danke, klappt jetzt :mrgreen:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme