Stringarray = Leer

[Maik81ftl]

Moin Moin,

Bin gerade an einer Überarbeitung einer Berechnung und muß daher den DecimalSeparator anpassen.

bei der Überarbeitung der Function erhält das Arrayfeld Edit[1, x] keinen wert.

Kann ggf. mal jemand mitschauen und ggf. die Zeile benennen in der der fehler ist?

Code: Alles auswählen

Procedure TForm3.BMI;
var
  temp: Array[0..3] of Real;
  Count, E_leng: Byte;
begin
  Edit[0, 0]:= Edit4.Text;
  Edit[1, 0]:= Edit5.Text;
  Edit[0, 1]:= '';
  Edit[1, 1]:= '';
  Caption:= DecimalSeparator;
  for Count:= 0 to 1 do
  begin
    _temp:= Edit[Count, 0];
    for E_leng := 1 to Length(_Temp) do
    begin
      Caption := Caption + IntToStr(Count) + '^';
      if (_Temp[E_leng-1] = '.') or (_Temp[E_leng-1] = ',') then
        Edit[Count, 1]:= Edit[Count, 1] + '.'//DecimalSeparator;
      else
        begin
        Edit[Count, 1]:= Edit[Count, 1] + _temp[E_leng-1];
        end;
      end;
    end;
//  Caption:= Caption + Edit[0, 0] + '-' + Edit[1, 0] + '|' + Edit[0, 1] + '-' + Edit[1, 1];
end;

Die Definition des Editarray hat ich hier nocheinmal aufgelistet.

Code: Alles auswählen

Edit: Array[0..1, 0..1] of String;
_Temp: String;

Danke erst mal im Vorraus und wünsche allen ein Schönes Rest-WE