Fang teksten

Taler vi om et kendt eller ukendt format? Altså vil det altid være det samme antal tal-variabler?

Det er vel noget med at veksle mellem tal og bogstaver og banke klumperne ind i en TStringList og behandle det derefter.

Hvad med at bruge rpn-syntaksen? Det er en meget let syntaks at programmere og man vænner sig meget let til at regne på denne måde (HP's regnere er toppen!)

Har ikke tid til et eksempel lige nu, men skriv om jeg kan hjælpe.

Du kan læse fra venstre mod højre så længe det er et tal der står der så læs næste karekter også. Put dem over i en streng et for et, konveter den streng til et tal og vupti har du første tag.

Således fortsætter du.

Jens B

Jeg sad lige og bryggede dette eksempel sammen. Der er en TEdit (eText), TButton (btnTest) og en TListBox (lbResult)

Knappen kalder funktionen ParseText der lægger delene ind i en TStrings som du kan gennemløbe. Håber du kan bruge eksemplet

type
  TCharTypes = (ctChar, ctNumber);

procedure TfrmMain.btnTestClick(Sender: TObject);
begin
  ParseString(eText.Text,lbResult.Items);
end;

procedure TfrmMain.ParseString(aString: string; aStringList: TStrings);
var
  ch : char;
  st : string;
  i : integer;
  PrevCharType, CharType : TCharTypes;
begin
  if length(aString) = 0 then
    exit;

  aStringList.BeginUpdate;
  try
    PrevCharType := TCharTypes(aString[1] in ['0'..'9']); // måske også '-','+'?
    for i := 1 to length(aString) do begin
      ch := aString[i];
      CharType := TCharTypes(ch in ['0'..'9']); // måske også '-','+'?
      if PrevCharType = CharType then
        st := st + ch
      else begin // Der er sket et skift, gem streng og start på ny
        aStringList.Add(st);
        st := ch;
        PrevCharType := CharType;
      end;
    end;
    aStringList.Add(st);
  finally
    aStringList.EndUpdate;
  end;
end;

hrc >>

Hvordan virker den?
Den brokker sig over:
Undeclared identifer: 'ParseString'
Undeclared identifer: 'eText'
osv.


/Steffen.

det virker.