FileName

[KLOP]

вообщем вопрос таков
сделал я ListBox и OpenDialog также Button
при нажатии на кнопку открываеться окно и выбераеться файл и добавляю файл нейм в лист бокс но почему то добавляетсья полный пусть как сделать что б только название файла добавлялось помогите пожайлуста

[DomiNick]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If OpenDialog1.Execute Then
      ListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
End;

[KLOP]

DomiNick спасибо

[KLOP]

А ещё вопрос возможно ли убрать ещ и расширение файла

[Terran]

А ещё вопрос возможно ли убрать ещ и расширение файла

Вот написал по быстренькому.

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: String;
Begin
If OpenDialog1.Execute Then
S:=ExtractFileName(OpenDialog1.FileName);
Delete(S,Pos('.',S),Length(S));
ListBox1.Items.Add(S);
End;

[KLOP]

спасибо только могут возьникнуть проблемы если в названии будут встечаться точки

[Terran]

спасибо только могут возьникнуть проблемы если в названии будут встечаться точки

Нашёл хорошую функцию на форуме и с ней сделал отличный пример:

Function Revers(S: String): String;
Var
I: Byte;
St: String[1];
Begin
For I:=1 To Length(S) Div 2 Do
Begin
St:=S[I];
S[I]:=S[Length(S) - I + 1];
S[length(S) - I + 1]:=St[1];
End;
Revers:=S;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Var
S: String;
Begin
If OpenDialog1.Execute Then
S:=ExtractFileName(OpenDialog1.FileName);
S:=Revers(S);
Delete(S,1,Pos('.',S));
S:=Revers(S);
ListBox1.Items.Add(S);
End;