text in i array

strenge konverteres til tal med

integertal := inttostr(string);
doubletal  := floattostr(string);

Hvis din funktion arbejder med tal og du sender en streng kan du gøre sådan:

funktion lav_til_Tal(s : string) : integer;
begin
  try
    result := inttostr(trim(s));
  except
    on exception do result := 0;
  end;
end;

sjensen

sjensen: du mener vel strtoint ik'?

I stedet for onvenstående findes funktionen strtointdef, hvor du har mulighed for at sætte defaultværdi hvis strengen ikke er af tal, ex:

IntTal := IntToStrDef(Streng, 123);

Hvis Streng er andet end tal returneres 123

Michael

Michaelras>Jo selvfølgeligt. Du har ret. Jeg var vist lidt træt på det tidspunkt, og glemte at se efter hvad det rent faktisk var jeg skrev

altså

integertal := strtoint(string);
doubletal  := strtofloat(string);

sjensen

nu var det jo ikke det jeg spurgte om!
jeg skulle have teksten ind i et array.
eks.
funktion(tekst:array [0..63] of Char;,skod:integer;);
så vil jeg sætte en string fra en string variabel ind i array'en. der kommer bare fejl når jeg gør det direkte.Så det skal vel konverteres om.

Prøv lige at vise den kode der går galt. Så er det vist nemmer at se hvad der er galt.

her er den så :

public
procedure CreateParams(var Params: TCreateParams); override;

procedure TCow.CreateParams(var Params: TCreateParams);
var klasse:string;
    rand:integer;
begin
  inherited CreateParams(Params);
Randomize;
rand := random(9)+random(9)+random(9)+random(9)+random(9)+random(9);
klasse := inttostr(rand);
Params.WinClassName := klasse;
Fejlen kommer her.... Den kan ikke bruge klasse stringen.
Men hvis man skriver
Params.WinClassName := 'Test';
virker det fint.
Håber det har hjulpet jer til at forstå hvad der er galt

Prøv det her:

procedure TCow.CreateParams(var Params: TCreateParams);
var klasse:string;
    rand:integer;
    WinClassTemp:PChar;
begin
  inherited CreateParams(Params);
Randomize;
rand := random(9)+random(9)+random(9)+random(9)+random(9)+random(9);
klasse := inttostr(rand);
//-------- her imellem
WinClassTemp := @Params.WinClassName;
StrPCopy(WinClassTemp, klasse);
//--------
//osv

Michael

Ved nærmere eftertanke, så glem ovenstående og erstat hvor du i din egen kode vil skrive:

  Params.WinClassName := klasse;

med

  StrPCopy(Params.WinClassName, klasse);

Det burde virke....

Michael

testet det lige når jeg kommer hjem og så acceptere jeg hvis det virker