02. august 2001 - 20:56
Der er
2 kommentarer og
3 løsninger
2 Problemer i tekstbehandlingsprog.
Jeg har nogle problemer med Delphi jeg er i gang med at lave et tekstbehandlingsprogram og jeg har så en Gem knap den har følgende kode
procedure TForm1.miGemClick(Sender: TObject);
begin
if OpenDlg.FileName <> \'\' then
begin
memEdt.Lines.SaveToFile(OpenDlg.FileName);
end
else miGemSom.Click;
end;
Jeg har så i Filter Editor skrevet filtyperne som *.Txt og *.* og den
gemmer filen udemærket bare uden at filen kommr til at hedde *.txt den
får slet ikke noget efternavn så den fremkommer som en ukendt fil hvad
skal jeg gøre ved det problem?
Problem 2:
Hvordan indsætter jeg en Scrollbar funktion i min \"Memoblok\" fordi det er ikke noget som kommer automatisk
03. august 2001 - 10:42
#3
du kan bare lave noget kode der tjekker filnavnets efternavn. eks:
...
procedure TForm1.miGemClick(Sender: TObject);
begin
if OpenDlg.FileName <> \'\' then
begin
if extractfileext(opendlg.filename) = \'\' then
opendlg.filename := opendlg.filename+\'.txt\';
memEdt.Lines.SaveToFile(OpenDlg.FileName);
end
else miGemSom.Click;
end;
...
håber du kan bruge det
ZeroHero
04. august 2001 - 17:29
#4
nej, nej, nej! Hvorfor skrive mer\' kode når det kan klares med ét tegn!?
I din OpenDialog, indsætter du bare et punktum (.) i DefaultExt-feltet. Så vil programmet nemlig bare selv sætte den valgte extension ba\' på filnavnet, og ikke, som I gør (zerohero & morten_s) TVINGER programmet til at sætte .txt efter filnavnet (det ku\' være at nogen måske foretrak et filnavn, uden extension...)
Zerohero >> skrev du ikke til mig for noget tid siden, noget med nogle parametere? Hva\' blev der er det?
Og med hensyn til scrollbaren: Marker Memo\'en og find feltet ScrollBars. Indstil så den efter dit behov.
