Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#33

Re: Externes Programm starten

  Alt 2. Feb 2007, 11:43
Welches Delphi hast du?
Dann versuchs mal mit "val", das gabs schon unter Borland Pascal.

irgendwie so:
Delphi-Quellcode:
max:=0;
pos:=0;
for i:=0 to s.count-1 do begin
  val(s[i],tmp,fehler);
  if (fehler=0)and(tmp>max) then begin
    max:=tmp;
    pos:=i;
  end;
end;
if pos=0 then //raise error
  else //benutze s[pos];
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat