Avatar billede kallesen01 Nybegynder
14. november 2003 - 13:03 Der er 10 kommentarer og
1 løsning

Hjælp til listbox

Hej Experter :P

Jeg ville lige spørge om dette:

1.Jeg har en edit hvor jeg vil have at den KUN kan skrive tal but how?

2.Når det så er gjort vil jeg have mine tal over i en listbox hvor den så rigistrer hvor meget der er, altså jeg smækker et beløb ind i en edit trykker på en knap og vupti så kommer der et tal over ilistboxen, det er nemt nok, men! næste gang jeg åbner mit program så henter jeg en nini fil frem og så kommer tallet også frem, men næste gang jeg smækker et beløb ind i listboxen vil jeg have at mit program skal trække tallen fra hinaden og så kommer resultater i en label. nogen der ikke forstår dette så post da lige en kommentar så skal jeg se om jeg kan forklare mig lidt bedre....

/Kallesen
Avatar billede stone Forsker
14. november 2003 - 13:44 #1
Problem 1:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  AllowedChars: string = '0123456789';
var
  i: Integer;
  Ok: Boolean;
begin
  i  := 0;
  Ok := False;
  { If you erase next line, user won't be able to type backspace }
  if Key = #8 then Ok := True;
  repeat
    i := i + 1;
    if Key = AllowedChars[i] then Ok := True;
  until (Ok) or (i = Length(AllowedChars));
  if not Ok then Key := #0;
end;
Avatar billede stone Forsker
14. november 2003 - 14:21 #2
har du flere tal i din listbox?
Avatar billede kallesen01 Nybegynder
14. november 2003 - 14:24 #3
Jeg har det sådan at når jeg har et tal der over i listboxen så skal det næste tal trækkes fra og så skal resultatet over i en label
Avatar billede stone Forsker
14. november 2003 - 19:36 #4
problem 2:

{$R *.DFM}// så du kan se hvor var skal placeres
var
ListNr,EditNr: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListNr  := StrToInt(Listbox1.Items[0]);
EditNr := StrToInt(Edit1.Text);
Label1.Caption :=IntToStr(ListNr - EditNr);
end;
Avatar billede kallesen01 Nybegynder
14. november 2003 - 21:54 #5
Ja nu kommer der så et problem, efter jeg har knallet flere tal nd i denne række følge: 100 - 50 - 30 så ender beløbet med at være 70 DKR hvordan kan dette lade sig gøre ??

Og må jeg gerne få din ICQ eller MSN så jeg kan skrive til dig?

/Kallesen
Avatar billede stone Forsker
14. november 2003 - 23:17 #6
har ikke icq eller msn

det er kun den aktuelle værdi i din listbox som du minusser

hvis du vil have overført resultatet til din listbox, så bliver resultatet mindre hver gang du minusser....

ListNr  := StrToInt(Listbox1.Items[0]);
EditNr := StrToInt(Edit1.Text);
Label1.Caption :=IntToStr(ListNr - EditNr);
Listbox1.Items[0] := label1.Caption;
Avatar billede kallesen01 Nybegynder
15. november 2003 - 12:15 #7
Ja nu starter den med at skrive 0 i listboxen og så taster man et til ind og vupti så er ens saldo på - (beøbet) hvad kan vi gøre ved det ?
og måtte jeg få din MSN ? min er kenneth_kallesen@hotmail.com

/Kallesen
Avatar billede stone Forsker
15. november 2003 - 15:44 #8
har ikke icq eller msn
tallet i din listbox er det den du gemmer i en *.ini
og når du henter din *.inifil og som bliver indlæst i listbox, og skriver et beløb i edit så skal tallet fra edit trækkes fra i listbox...
eller skal beregningen foregå i listboxen hvor de 2 indtastede tal skal trækkes fra hinanden?

eller har jeg helt misforstået dig...
Avatar billede kallesen01 Nybegynder
15. november 2003 - 19:55 #9
Undskyld, jeg læste ikke det med msn og ICQ.

Jeg vil have det sådan at når jeg trykker på knappen første gang skal jeg have det sådan at tallet kommer ind i listboxen, og hvis der står noget i listboxen skal man trække det tal fra som man skriver næste gang, og 4. ..... 5 gang så skulle man kunne blive ved med at trække fra og fra det beløb som er saldo i min label.

ps. vil faktisk gerne have lidt tip om hvordan jeg gemmer med ini, for jeg får fejl, når jeg prøver

/Kallesen
Avatar billede stone Forsker
15. november 2003 - 23:29 #10
her er et eksempel ini inifil + beregn

http://hjem.get2net.dk/steen_larsen/beregn.zip
Avatar billede kallesen01 Nybegynder
16. november 2003 - 06:23 #11
Jamen det var jo det som jeg skulle bruge, du er nu en gutter mand!

/Kallesen

s. håber du vil hjælpe en andenang :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester