Float-String

Så må du gennemløbe strengen som her:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Streng3 : String;
  Hej : Array[1..10] of integer;
  I,Code,Nr : Integer;
begin
  Streng3:='2345';
  For I:=1 to Length(Streng3) do
  begin
  Val(Streng3[I],Nr,Code);
  if Code=0 then Hej[I]:=Nr;
  Showmessage(IntToStr(Hej[I]));
  end;

end;

Eller, hvis strengen kun består af tal, så kan du benytte koden:

tal := StrToInt(streng);

x := StrToFloat(s)

Hmm... jeg tror jeg har formuleret mig lidt forkert så... fordi den streng som jeg vil ha noget float ud af ku se sårn her ud :
hej|üfvD|hej

hvor der er üfvD der ska konverteres

Det her virker vist...

function Hest: Extended;
var
  Davs: array [1..10] of Char;
begin
  Davs := 'hejükDfj-s';
  Result := Extended(Davs);
end;

Hvad der så skal stå i Davs må du selv finde ud af! :)

//hermandsen

tester det lige

hmm virker ik... lukker spørgsmålet... og spørger en irl m8... tak for svarene.. selvom jeg ik fik nogen af tingene til at virke :(

Prøv at se på det her: (piller 4 bytes ud (efter '|') og konverterer dem til single - det kunne også være 8 bytes og double)

procedure TForm1.FormCreate(Sender: TObject);
const
  floatlength = 4;
var
  s: string;
  t: array[1..FloatLength] of char;
  i,j: integer;
  r: single;
begin
  s := 'hej|üfvD|hej';
  i := pos('|',s);
  for j := 1 to FloatLength do
    t[j] := s[i+j];
  showmessage(t);
  r := single(t);
  showmessage(FloatToStr(r));
end;