Forum: Sonstige Fragen zu Delphi
Delphi
by Billa,
5. Sep 2003
@Typercoon: Sorry, ich wollte Dich wirklich nicht kopieren! Aber Du warst wohl einfach schneller :hello:
Forum: Sonstige Fragen zu Delphi
Delphi
by Billa,
5. Sep 2003
Hallo,
eigentlich wollte ichs ja nicht tun....aber hier ist Code, der anscheinend funktioniert
try
ts_main := TStringList.Create;
try
ts := TStringList.Create;
Forum: Sonstige Fragen zu Delphi
Delphi
by Billa,
5. Sep 2003
Hallo,
du referenzierst immer noch auf eine Zeile f, die gar nicht vorhanden ist
f:=f+1;
ts.LoadFromFile('C:\file'+IntToStr(i)+'.txt');
if ts.Count > 0 then
begin
ts_main.add(ts.strings);
Forum: Sonstige Fragen zu Delphi
Delphi
by Billa,
5. Sep 2003
Hallo,
was klappt denn nicht? (Fehlermeldung?)
Gruß
Billa
Forum: Sonstige Fragen zu Delphi
Delphi
by Billa,
5. Sep 2003
Hallo,
vielleicht sehe ich es nicht aber Du referenzierst doch die f.Zeile, oder?
ts_main.add(ts.strings); <------
Ich denke jede Datei und damit ts enthält jeweils nur eine Zeile?
Forum: Sonstige Fragen zu Delphi
Delphi
by Billa,
5. Sep 2003
Hallo,
try
for i:= 1 to 20 do
begin
if fileExists('C:\file'+i+'.txt') then
ts.LoadFromFile('C:\file'+i+'.txt');
if ts.Count > 0 then
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Billa,
5. Sep 2003
Hallo!
...es könnte klappen, wenn Du i in eine Zeichenkette umwandelst!
for i:= 1 to 20 do
begin
if fileExists('C:\file'+IntToStr(i)+'.txt') then
ts.LoadFromFile('C:\file'+IntToStr(i)+'.txt');
if ts.Count > 0 then