variabel nummer

with ListBox2, Listbox2.Items do
begin
if Strings[ItemIndex]=aktie1_til_salg then
begin
//lisbox2 opdateres
aktie1_antal_stk_til_salg:=aktie1_antal_stk_til_salg-antal_kbt;
aktie1_til_salg:=  aktie1_navn+':'  +inttostr(aktie1_vrdi)+'kr, ' +inttostr(aktie1_antal_stk_til_salg)+'stk';
osv..

Var det sådan du mente ??

nej vil have så istedet for aktie1 står der aktie[nummer]. vil have så [nummer] erstattes af f.eks. 1. så programmet læser aktie1

vil gerne undgå at skulle skrive den same kode 10 gange pga variablerne for hver aktie hedder aktie1, aktie2...aktie10.

Det du efterlyser hedder arrays.
var
  aktie: array [1..10] of integer;
  i: Integer;
begin
  // initier array
  for i := 1 to 10 do
    aktie[i] := 0;
  // optæl
  aktie[1] := aktie[1] + antal;
  aktie[5] := aktie[5] - antal;
osv.

tror at du vil få bedste resultat hvis du vælger at lave et object så evt variabler du har, kan blive blive brugt fra listbox.objects.
Så bliver det dynamisc frem for det du har gang i nu.

du kan også vælge en TStringList i stedet for array[]

VAR
  L : TStringList;

begin
  L := TStringList.Create;
  L.Add('Aktie1');
  L.Add('Aktie2');
  ...
  L.Add('Aktie718');
end;

og så skal du når du er færdig med at bruge L huske at lave en L.Free;

@tolderlund på den måde der skal man da selv sætte nummer efter hver variabel alligevel? eller mig der har misforstået noget?

@martinlind er ikke lige med på hvad du mener der...
når jeg så har alle aktierne i den liste, men hver "aktie" har 6 variabler der bruges til at styre forskellige ting.

variabler til aktie1:
        aktie1_til_salg: string;
        aktie1_vrdi: integer;
        aktie1_antal_stk_til_salg: integer;
        aktie1_antal_stk_kbt: string;
        aktie1_kbt: integer;
        aktie1_navn: string;

ved ikke om i har misforstået det jeg gerne vil eller mig der ikke forstår jeres svar...

kort eksempel:

if variabel=1 then nummer:=1
if variabel=2 then nummer:=3
if variabel=3 then nummer:=3
aktie[nummer]_solgt:=aktie[nummer]_solgt - antal_kobt

på den måde behøver jeg kun skrive
aktie[nummer]_solgt:=aktie[nummer]_solgt - antal_kobt
en gang istedet for

aktie1_solgt:=aktie1_solgt - antal_kobt
aktie2_solgt:=aktie2_solgt - antal_kobt
aktie3_solgt:=aktie3_solgt - antal_kobt

Prøv at kigge på mit eksempel igen.
Om man skriver
  aktie[1] := aktie[1] + antal;
eller
  nummer := 1;
  aktie[nummer] := aktie[nummer] + antal;
gør ingen forskel.
Det virker som om at du ikke ved hvad arrays (tabeller) er.
Er du nybegynder i programmering?

jeg vil undgå at skrive 1 ud for aktie da det lige så godt ku vælre aktie 3 jeg sku bruge. derfor nummer som så ku erstattes af et givent tak der blive defineret alt efter hvilken aktie der bliver valgt

Det er ren goddag mand økseskaft.

javel ja :S

hvorfor det?

syntes du det er nemmere at kopiere samme kode 10 gange ind og så ændre tallet ud for 5 variabler som opstår flere gange i hver afsnit?

i får point som tak for i prøvede at løs mit problem.

har dog stadig samme problem men må bare skrive 984234 linier kode istet for 10 :(