Hej
Jeg er newbie kan i hjælpe mig ?
Hvordan kan jeg lave flere commandore som Memo1.lines.Clear i samme knap ?
----
procedure TForm1.Nyt1Click(Sender: TObject);
begin
Memo1.Lines.Clear
end;
end.
----
.:: Death Killer ::.
Du skal afslutte dine linier med et semikolon (ovenstående virker, fordi man af en eller anden obskur grund ikke behøver ; før end). Hvis du gør det, kan du skrive dem efter hinanden. Fx.:
<pre>
procedure TForm1.Nyt1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Hello World!');
end;
</pre>
(bemærk at hver linier er afsluttet med ';'. Det eneste tidspunkt hvor du ikke skal afslutte med ';' er før 'else'. Eksempelvis:
<pre>
if a=1 then
ShowMessage('a er lig med 1')
else
ShowMessage('a er ikke lig med 1');
</pre>
Skal du udføre flere ting i en if eller else blok, skal de indkapsles i begin/end:
<pre>
if a=1 then
begin
ShowMessage('a er lig med 1');
b := 1;
end
else
begin
ShowMessage('a er ikke lig med 1');
c := b;
end;
</pre>
Bemærk her at alle linier inden for begin/end er afsluttet med ';', men den første end er ikke, da den står før else.
Håber du kan bruge det
/data