"Ove Kjeldgaard" <n3ws@hiker.dk> skrev i en meddelelse
news:0sq2l4tp9kl6eqdp2ebddqu1sr73cc6hof@4ax.com...
> "Henning Madsen" <hkjeldm@mail.dk> wrote:
>
>>Nu syntes jeg ikke det er sjovt længere
>>Mener absolut ikke der er nogen programmerings fejl i disse to linier???
>>Det der sker er at ved klik i ACol ønskes cellen markeret med et X
>>det bliver den kun hvis jeg fjerner 2. linie.
>>
>>procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
>> ARow: Integer; var CanSelect: Boolean);
>>begin
>> If (StringGrid1.Cells[2,ARow] = '') Then StringGrid1.Cells[2,ARow] :=
>> 'X';
>> If (StringGrid1.Cells[2,ARow] = 'X') Then StringGrid1.Cells[2,ARow] :=
>> '';
>>end;
>>
>>Meningen er jo at ved klik i ACol 2 bliver der skrevet et X næste klik
>>fjerner X'et o.s.v.
>>Jeg bruger DELPHI 7 og XP
>>For julefredens skyld vel det være dejligt om en af jer vel forklare
>>'Fenomenet'
>
> Der er vel heller ingen fejl i de to if sætninger.
> Men hvis cellen er "tom" vil du sætte X i første if sætning, og i næste if
> sætning finder du et X i cellen og ændrer det så til "tom".
>
> Prøv denne programstump, hvis du ikke skal bruge andre tegn end "tom" og X
>
> procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
> ARow: Integer; var CanSelect: Boolean);
> begin
> If (StringGrid1.Cells[2,ARow] = '') Then
> StringGrid1.Cells[2,ARow] := 'X';
> else
> StringGrid1.Cells[2,ARow] := '';
> end;
>
> --
> Med venlig hilsen, Ove Kjeldgaard
> Ved e-mail svar: Skift ciffer ud med bogstav
> Natur og Friluftsliv: <
http://hiker.dk>
Så blev det aligevel jul
Tak for svaret Ove det funker.
En glædelig jul til alle
Henning