Dateigröße abfragen

[Tommy1988]

Hallo, ich habe ein kleines Problem..

ich möchte hierdurch DateiName, Ordner und Laufwerk auf 3 lablels verteilen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  DirPart, FilePart: String;
  DrivePart: Char;
const
  Path = Edit1.Text;
begin
  if not FileExists(Path) then Exit;

  ProcessPath(Path, DrivePart, DirPart, FilePart);

     // Variableninhalte:
  Label4.Caption := 'Dateiname: ' + FilePart +'';
  Label5.Caption := 'Ordner: ' + DirPart + ^j +'';
  Label6.Caption := 'Laufwerk: ' + DrivePart + ^j +'';

end;

Das Problem an der ganzen sache ist, dass ich bei Path gerne die variable die den path beinhaltet (Edit1) stehen hätte

Nur wenn ich   Path = Edit1.Text; schreibe, meckert delphi.. er will einen konstanten ausdruck haben?

[mkinzler]

Path := Edit1.Text; Wo/wie ist Path deklariert?

[Tommy1988]

ich klicke einen button daraufin passiert das hier:

Delphi-Quellcode:

OpenDialog1.Execute;
Edit1.Text := OpenDialog1.FileName;

dialog öffnet sich, markierte datei wird mit dem kompletten pfad ins Edit1 geschrieben.

und diesen text aus edit1 möchte ich für diesen Path eben benutzen


EDIT:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
DirPart, FilePart: String;
DrivePart: Char;
const
  Path = ''+Edit1.Text+'';

....

[mkinzler]

Konstanten sind konstant, nimm ne lokale Variable

Delphi-Quellcode:

var
 Path: string;
...
Path := Edit1.Text;

Btw. ''+Edit1.Text+'' ist das Selbe wie Edit1.Text