FILELISTBOX <-- datei auswählen und umbenennen

dm · Beiträge: 83

Hallo,

ich möchte folgendes realisieren :

Man kann aus einer Filelistbox - komponente eine datei auswählen, dann in einem EDIT Feld einen namen eingeben und wenn man dann einen Button drückt soll der Dateiname umgewandelt werden in die bezeichnung, die in das EDIT feld eingegeben wurde.

Jemand ne Idee ?

Gruß Dennis

torstenheinze · Beiträge: 461

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var f: file;
begin
assignfile(f,filelistbox1.filename);
rename(f,directorylistbox1.Directory + '\' + edit1.text);
end;

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

dm · Beiträge: 83

... I/O Error 123

Sagt mir viel

*weiterrumbastel* wenn du noch n tip hast, ich wäre dankbar

Gruß Dennis

dm · Beiträge: 83

funktioniert doch, der dateiname war nur falsch bzw. es war ein leerzeichen zwischen dem "." und dem dateikürzel.

vielen dank für deine hilfe

torstenheinze · Beiträge: 461

siehste, bei mir futzt es nähmlich auch, sonst hätte ich's net gepostet :wink:

nuke160 · Hält's aus hier Beiträge: 9

Hi, ich habe genau das gleiche Problem, nur bei mir funktioniert es nicht.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TFrmMain.BtnRenClick(Sender: TObject);
var
  i : integer;
  k : integer;
  f : file;
begin
  k := 0;

  for i:=0 to FileListBox1.ItemIndex do
    if FileListBox1.Selected[i] then
    begin
      k := k + 1;
      Assignfile(f,FileListBox1.Directory + '\' + Filelistbox1.Items.Strings[i]);
      rename(f,FileListBox1.Directory + '\' + IntToStr(k) + '.jpg');
    end;
end;

Eigentlich genau der gleiche Quelltext, nur der gibt mir die Fehlermeldung: 'I/O Error 185'

Lannes · Verfasst: Do 01.03.07 00:38

Hallo,

schau Dir mal Deine Schleifenkonstruktion genau an und/oder ließ mal in der Delphi-Hilfe den Abschnitt über ItemIndex.

Die Schleife läuft von 0(erstes Item) bis zu ItemIndex(selectiertes Item), da angekommen wird geprüft ob das selectierte Item selectiert ist.

bist Du Dir sicher, das der Fehlercode 'I/O Error 185' war, und nicht doch 183 (Datei kann nicht erstellt werden, weil schon existiert)?

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

nuke160 · Hält's aus hier Beiträge: 9

Ja, die Schleife muss natürlich anders...
Für andere Idioten wie mich, so funktionierts...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  k := 0;
  for i:=0 to (FileListBox1.Items.Count - 1) do
    if FileListBox1.Selected[i] then
    begin
      k := k + 1;
      Assignfile(f,FileListBox1.Directory + '\' + Filelistbox1.Items.Strings[i]);
      rename(f,FileListBox1.Directory + '\' + IntToStr(k) + Trim(CB.Text));
    end;

Ich hatte erst das -1 nach FileListBox1.Items.Count vergessen, so hat er mir wieder Fehlermeldungen rausgehaun, aber so funktionierts.

Danke

MFG
F.S.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme