Antal cifre før kommaet

Hvis tallet er 11, så skal der bare stå 13... Meget mærkeligt! ;)

Det må du undskylde, det er en fejl........
Hvis tallet er 11, så skal der bare stå 11. Selvfølgelig........ :-)

Ja, det tænkte jeg nok! :) He he.

Nå, men hvis jeg skal tage dit spørgsmål helt seriøst, skal jeg nok lige vide hvilket program det er det skal fungere i.

Hvad mener du med hvilket program det skal fungere i ??

function I2S(I: Integer): String;
begin
  Str(I, Result);
  if I <= 9 then Result := '0' + Result;
end;

OK, lyt til hermandsen! Han har vist lidt mere tjeck på det end mig hvis det er noget i den retning du søger!

Du kan også skrive den som:

function I2S(I: Integer): String;
begin
  Str(I, Result);
  if Length(Result) = 1 then
    Result := '0' + Result;
end;

Dog tror jeg den er lidt langsommere, da den bruger funktionen Length, men det er op til dig hvad du bedst kan li'! :)

Det skal selvfølgelig siges at du ikke må have et tal der er højere end 99, da det så vil blive angivet med 3 cifre, men det går jeg så ud fra ikke sker! :)

Noget andet du måske også skal tage højde for kan være negative værdier, det ser jo ikke så fedt ud, hvis -2 bliver oversat til 0-2, fordi -2 er mindre end eller lig med 9! ;)

Uha, der er mange ting at tage hensyn til! :)

Nå, slut fra mig!

//hermandsen

hermandsen> Det virker fint...
Jeg troede bare der fantes en delphi funktion.
Hvad så hvis der skal stå 002 ??

Jamen vil det så ikke hedde noget i retning af (uden at jeg dog har prøvet noget lignende før!):

function I2S(I: Integer): String;
begin
  Str(I, Result);
  if Length(Result) = 3 or
  if Lenght(Result) = negative then
    Result := Error
  else
    Result := '0' + Result;
end;

function I2S(I: Integer): String;
begin
  Str(I, Result);
  if Length(Result) = 1 then
    Result := '00' + Result; else
  if Length(Result) = 2 then
    Result := '0' + Result;
end;

Jaaah, så kunne du f.eks. gøre det sådan her:

function I2S(I, Cifre: Integer): String;
begin
  Str(I, Result);
  while Length(Result) < Cifre do
    Result := '0' + Result;
end;

Eller er jeg helt galt på den?

>>pesa
Naaaj, ikke helt galt på den, men det kan da gøres nemmere! :)

Hvis man skal bruge din metode, så er et case of-statement meget mere overskueligt:

case Length(Result) of
  1: Result := '00' + Result;
  2: Result := '0' + Result;
  //og så videre
end;

Hvis man også skal sikre at den er negativ:

function I2S(I, Cifre: Integer): String;
var
  Negativ: Boolean;
begin
  Negativ := I < 0;
  I := Abs(I);
  Str(I, Result);
  while Length(Result) < Cifre do
    Result := '0' + Result;
  if Negativ then
    Result := '-' + Result;
end;

Så er vi da vist også ved at have det hele med! :)

Det skal nok passe (!), men som sagt er det første gang jeg prøver at skrive sådan en kode! Du har sikkert ret uden at jeg dog skal afgøre det. Ved ikke engang hvordan jeg skal tjekke det! Hvor kan man afprøve det? Hvilket program? Ja, jeg er Nybegynder på det felt med stort N.

Uha, vi har en Delphi-nybegynder!!!

Velkommen til Delphi's forunderlige verden, træd et skridt nærmere og du vil aldrig forlade os!!! MUHAHAHAAAA!!! (hmmm, der var den stemme igen)

Nå, back to reality! :)

Et godt sted at starte er på Borland's hjemmeside (www.borland.com), her kan du hente Delphi 6 Personal som du kan lege lidt med... Når du så har snuset lidt til Delphi, så skal du starte med en rigtig god bog, nemlig denne her: http://www.systime.dk/titel.asp?udgivelseid=2563
Den er på dansk, godt skrevet og har utrolig mange eksempler som det er let at følge med i. Bogen kan normalt lånes på biblioteket, så det er bare at lette rumpetten og så få den reserveret! :)
En stor fordel ved bogen er bl.a. at du stort set hele tiden ser at der sker noget på skærmen, så du er ikke i tvivl om at du rent faktisk laver noget med Delphi! :)

Men start hos Borland... Man skal vist tilmelde sig der inde, men det er gratis, såååh... :)

Jeg finder lige et link, hang tight! ;)

Jamen det lyder da fornemt, men hvad kan man bruge det til? Kan man bruge det til hjemmesider???

Njaaaa, ikke lige frem hjemmesider... Du kan godt, men Delphi bliver for det meste brugt til at udvikle Win32 programmer... Altså exe-filer til Windows... :)

Det vil altså sige jeg går hen og bliver en rigtig nørd? Aj, hermandsen du behøver ikke at bruge mere energi på mig, for jeg får det sku aldrig lært - der er andet jeg hellere vil lære. Se iøvrigt hvad jeg arbejder på fortiden på http://www.friserverplads.dk/pesa/index3.htm .

Nå, men jeg vil trække mig tilbage!

Hey, er du ikke nørd... Hvad laver du så på Eksperten! ;)

Nå, men okay så... Du må endelig sige til hvis du alligevel får lyst til at programmere Delphi... Det er noget der rykker tænder ud!!! ;)