Memo1.Lines[0] prüfen!

[Popov]

@strom

1. Solche Fragen kann man sich oft selbst beantworten wenn man sich mit der Komponente beschäftigt. Einfach in der OH alle Eigenschaften und Methoden durchlesen. Eigentlich bin ich der Letzte der auf die OH verweist, denn schließlich ist ein Forum dazu da Fragen zu stellen, aber TStrings & Co. gehören zu den Delphi-Grundlagen.

2. Wenn man etwas wissen will und wünscht, dass sich jemand Mühe mit einer Antwort gibt, dann sollte man sich mehr also nur 5 Sekunden mit der Frage auseinandersetzen. Vielleicht sollte man zuerst die Vorschau wählen, sich dann alles durchlesen und sich fragen - werde ich und meine Frage auch verstanden? Ich wette mit dir um ein Puddingteilchen, dass du diese Frage einfach so ohne Überlegung runter geschrieben hast. Und nun muss sich jeder damit auseinandersetzen und fragen was du eigentlich willst?

3. Ich würde dir gerne helfen, weiß aber nicht was du willst. AlexII hat evtl. eine Glaskugel in der er es sieht.

[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