Hey jeg er ved at lave en tekst behandlingsprogram og er nu ved at lave en procedure som kan håndtere at tjekke efter og gemme alt efter om der er blevet skrevet noget i min memo osv. Jeg vil så nu tjekke den efter med en showmessage (Bare for at se om jeg nu har forstået at håndtere procedures og funktioner i Delphi) Men jeg får en fejl
Min procedure er
{Her laver jeg en procedure som kan gemme teksten}
procedure PGemTekst(var tekst: string);
{
En funktion som tjekker efter om der er skrevet flere ord i memoet end i den gemte fil
}
function tjekOrd(var tekst: string) : string;
begin
end;
{
funktion som tjekker efter om filen eksisterer
}
function EksistererFil(var tekst: string) : string;
begin
end;
{
Funktion som laver et gem
}
function gemTekst(var tekst: string) : string;
begin
showmessage('Jeg gemmer en tekst');
end;
{
Funktion som laver en gem som
}
function gemsomTekst(var tekst: string) : string;
begin
showmessage('Jeg laver en gem som på en ' + tekst);
end;
begin {Begynder procedure gemTekst}
{
her kalder jeg så de forskellige funktioner
}
if tekst = 'gem' then
begin
{Jeg tjekker også lige efter om filen findes hvis den ikke gøre det skal gemsomTekst funktion kaldes ellers skal den bare gemme}
{Her gemmer jeg bare teksten med funktion gemTekst}
gemTekst('tekst1');
end
else if tekst = 'gemsom' then
begin
{Her er teksten ikke gemt (brugeren har ikke gemt under et filnavn) funktionen gemsomTekst kaldes}
end
else if tekst = 'exit' then
begin
{Først tjekker jeg om filen findes, hvis ikke skal gemsomTekst funktionen kaldes}
{Her kalder jeg funktionen tjekOrd. Hvis der er flere ord i det åbne memo end i filen som der er gemt under så skal gemsomTekst() kaldes}
end;
end;
Fejlen jeg får er
[Error] Unit1.pas(107): Constant object cannot be passed as var parameter
Når jeg prøver at kalde funktionen gemTekst i min if sætning. Jeg kalder min procedure sådan her
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
PGemTekst('gem');
end;
Hvad kan være galt?
mxs @
http://poet.frac.dkSlamkodning for fred