Åbne fil

paramcount & paramstr()

kan du komme med et eksempel, for jeg har aldrig brugt parametre før...

var
i:integer
str : string;
begin
str := '';
for i := 1 to paramcount do
str := str + paramstr(i);
showmessage(str);
end;

Du skulle så gerne få det filnavn som "åbnede" i de paramstrings

jamen det virker jo bare...

du får dine point nu.

kan jeg ikke lige få dig til at give et svar, istedet for kommentarere

der var jeg vist lige lidt hurtig ude.

jeg har sat koden :
var
i:integer;
str : string;
begin
str := '';
for i := 1 to paramcount do
str := str + paramstr(i);
RichEdit1.Lines.LoadFromFile (str);

ind i en oncreate, og den åbner da også filen, men jeg kan ikke redigere eller slette i fil, har du nogen løsning?

Mener du at du ikke kan gøre noget i din richedit eller hvordan ?
i så fald skal du disable readonly for det richedit control

ja jeg kan ikke gøre noget i richedit, og det med readonly lyder som en god forklaring på problemet, men hvordan kan jeg slå det fra?

Ja det står i den boks hvor du kan ændre indstillinger for dine controls.

Prøv at skriv Richedit.Readonly := false; i oncreate, for at se om det er problem

det løser ikke problemet, men er det muligt at få den til at åbne filen igennem en opentextdialog? jeg har nemlig også problemer med at den ikke åbner filen med skriftyper og størelser. Havde sammen problem en gang hvor at jeg fik den til at åbne igennem en opendialog og det løste problemet.

lyder ret mærkeligt.
if opendialog.execute then
richedit.lines.loadfromfile(opendialog.filename);

ja lyder meget mærkeligt, men det som du har skrevet åbner ikke den fil som bliver fundet ved hjælp af parametrerne

Prøv at debugge koden og se hvad str indeholder ... men nu lyder du unægtelig noget grøn udi Delphi, så måske skal du bare indsætte nedenstående linje lige før din "RichEdit1.Lines.LoadFromFile(str)":

MessageDlg(str + #13#10'Exists: '+BoolToStr(FileExists(str),true), mtInformation,[mbOK],0);

Det kan måske kaste lidt lys over problemet.

siger bare:
( Sti til fil )
Exists: True

har også det problem at når den åbner en fil med teksten: "Hej" kommer der istedet teksten: "{\rtf1\ansi\ansicpg1252\deff0\deflang1030{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}}
\viewkind4\uc1\pard\f0\fs16 Hej\f1
\par }"

jeg lukker t¨åden og opretter en ny...