TStrings AccessViolatino Error

[patrickhessman]

Hallo!

1. Ich habe ein ganz seltsames Problem.

Delphi-Quellcode:

var
  l: TStrings;
begin
  l := TStrings.Create;
    l.LoadFromFile(<irgendwas>);
  l.Free;
end;

beschert mir immer einen AV Error. :coder2:
Wie kommt das? Hab schon ein wenig gestöbert
bin aber auf nichts sinnvolles gestoßen.

2. Geht warscheinlich total schnell :oops: :
Wie erstelle ich eine kopie der datei A
nach B?

Danke im Vorraus!

Patrick H. :dp:

[Luckie]

TStrings ist eine abstrakte Klasse. Nimm eine TStringList.

[patrickhessman]

Vielen Dank!
Super schnelle Antwort. Funktioniert!!!!! =)
Aber was war mein Fehler? Was ist eine Abstrakte Klasse?
Bzw. was is das Problem mit Abstrakten Klassen?
Ich lerne gern dazu =)

[Luckie]

abstract

Zitat:

An abstract method is a virtual or dynamic method that has no implementation in the class where it is declared. Its implementation is deferred to a descendant class. Abstract methods must be declared with the directive abstract after virtual or dynamic. For example,

procedure DoSomething; virtual; abstract;

You can call an abstract method only in a class or instance of a class in which the method has been overridden.

[Bernhard Geyer]

Zitat:

Zitat von patrickhessman

Was ist eine Abstrakte Klasse?

Abstrakte Klasse

[nat]

mach

Delphi-Quellcode:

var
  lst: TStrings;
begin
  lst := TStringList.Create;
  try
    lst.LoadFromFile(filename);
  finally
    lst.free;
  end;
end;

zur 2. frage nimm entweder ne funktion

Zitat:

BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);

oder machs mit 2 filestreams (falls du dazwischen evtl. noch rumfummeln mußt)

Delphi-Quellcode:

  fsIn := TFileStream.Create(inputfile, fmOpenRead or fmShareDenyWrite);
  try
    fsOut := TFileStream.Create(outputfile, fmCreate or fmShareDenyWrite);
    try
      fsIn.Position := 0;
      fsOut.CopyFrom(fsIn, fsIn.Size)
    finally
      fsOut.free;
    end;
  finally
    fsIn.free;
  end;

statt copyfrom könntest du auch blockweise lesen/schreiben und so z.B.
n statusbalken noch anzeigen lassen.

[patrickhessman]

Ok dann is jetzt alles klar! danke!