jak sprawdzić czy w OpenDialog wybrano jakiś plik ?

0

chodzi mi dokładnie oto czy przypadkiem człowiek nie kliknął na anuluj, czyli nie wybrał żadnego pliku, jak to sprawdzić [???]

0

[code]if OpenDialog.Execute then ShowMessage('Wybrano plik!') else ShowMessage('Nie wybrano pliku!');[/code]

0

dzięki Trepp [cya]

a mam jeszcze jedno pytanie, bo wiem jak pote wyciągnąć z tego pliku nazwe+rozszerzenie, a jak wyciągnąć tylko nazwe, bez rozszerzenia ?

0

[...]a mam jeszcze jedno pytanie, bo wiem jak pote wyciągnąć z tego pliku nazwe+rozszerzenie, a jak wyciągnąć tylko nazwe, bez rozszerzenia ?

ExtractFileName, ExtractFileExt, Pos i Delete + F1

0

po prostu zmniejsz jego dlugosc o 4 znaki (3 znaki rozsz + kropka)
np.
setlength(s,length(s)-4);
a jesli rozszerzenie ma mniej niz 3 znaki no cuz musisz pokombinowac
np. sprawdzic na ktorym miejscu od konca jest kropka
var
kropka:integer;
begin
for i:=length(s) downto length(s)-4 do
begin
if s[i]'.' then
inc(kropka)
else
break
end;
end;
pisze z pamieci tak wiec jesli cos nie dziala a nadal nie wiesz oc mi chodzi to mailme

0

wielki dzięki Yaroo, o takim rozwiązaniu nie pomyślałem [wstyd]

0

po prostu zmniejsz jego dlugosc o 4 znaki (3 znaki rozsz + kropka)

A co z roższerzneim .java albo .html?? Program sobie z tym nie poradzi. Można użyć ChangeFileExt

0

Witam!

Nie moge zrozumiec, po co takie kombinacje z rozszerzeniem pliku [???] ?? Nie prosciej:
[code]ExtractFileName(OpenDialog.FileName);[/code]

Zostanie sama nazwa bez rozszerzenia (nawet .java lub .html).

Pozdrawiam!


Racja, to wyciaga nazwa.roz zwracam honor [wstyd] !

0

Witam!

Nie moge zrozumiec, po co takie kombinacje z rozszerzeniem pliku [???] ?? Nie prosciej:
[code]ExtractFileName(OpenDialog.FileName);[/code]

Zostanie sama nazwa bez rozszerzenia (nawet .java lub .html).

no mnie sie wydaje że nie bedzie sama nazwa, bedzie nazwa+rozszerzenie, wypróbuj se

0

No to 'odejmij' od ExtractFileName - ExtractFileExt i tyle...

0

chłopaki !! H A L O !!, ja już ten problem dawno rozwiązałem (dzięki wam) a wy mi tu ciągle coś dopisujecie :-) dzięki.
już nie musicie tu pisać :-P

1 użytkowników online, w tym zalogowanych: 0, gości: 1