Memo1.Lines[0] prüfen!

[Popov]

Ich weiß zwar immer noch nicht was die Frage ist, aber evtl. geht es um Zahlen. Hier ein Beispiel wie man herausfindet ob ein String eine Interger Zahl oder gar eine Reelle Zahl enthält.

Delphi-Quellcode:

var
  sZahl: string;
  iResult: Integer;
  fResult: Double;
begin
  sZahl := '42';

  //sZahl := '12,3456'; 

  //Prüfen ob Integer
  if TryStrToInt(sZahl, iResult) then
    ShowMessage(sZahl + ' ist eine Integer-Zahl')
  else
    ShowMessage(sZahl + ' ist keine Integer-Zahl');

  //Prüfen ob Zahl mit Nachkommastellen
  if TryStrToFloat(sZahl, fResult) then
    ShowMessage(sZahl + ' ist eine Reelle-Zahl')
  else
    ShowMessage(sZahl + ' ist keine Reelle-Zahl');
end;

Womit das in dein Beispiel so aussehen könnte:

Delphi-Quellcode:

var
  ...
  i: Integer;
  ...
begin
  ...
  if TryStrToInt(Memo3.Lines[0], i) then
  begin
    Memo5.text := Memo3.Lines[0];
  end;

[Daniel]

Das sollte ihm helfen.
Wenn er dann noch mittels "Memo1.Lines.Count" prüft, ob es überhaupt eine erste Zeile (mit Index 0) gibt, dann wird die Lösung wohl rund.

[Luckie]

Zitat von Daniel:

Das sollte ihm helfen.
Wenn er dann noch mittels "Memo1.Lines.Count" prüft, ob es überhaupt eine erste Zeile (mit Index 0) gibt, dann wird die Lösung wohl rund.

No risk, no fun.

[p80286]

Delphi-Quellcode:

function IstZifferinString(const s:string):boolean;
var
  i : integer,
begin
  result:=false; 
  if length(s)>0 then
    for i:=1 to length(s) do
      if s[i] in ['0'..'9'] then result:=true;
end;

Könnte man auch mit repeat until oder while lösen wenn die Ziffer relativ weit vorne steht. Das spart ein paar Takte.

Gruß
K-H