BlackWolfZ
16.08.2018, 19:16
Delphi 6 if... and... then?

Hi, ich habe in Delphi das Problem, dass egal ob ich "if edit1.text:='1' and edit2.text:='1' then..." Oder Var a, b :integer; begin a:=strtoint(edit1.text); b:=strtoint(edit1.text); if a=1 and b=1 then... " eingebe, immer bekomme ich gesagt, es seinen "Inkompitable Typen". Weiß jemand, was der Fehler sein könnte oder welche "Typen" man verwenden muss? Leider hilft Google dabei auch nicht weiter.

...zum Beitrag
Antwort
von chakaaa
18.08.2018, 10:01

der Doppelpunkt ist zuviel. Also nicht ":=" sondern "=" für Vergleiche benutzen.

":=" ist nur für Zuweisung.

if (Edit1.Text = '1') ..

und Klammern um Vergleiche sind immer sinnvoll. Das verbessert die Klarheit und Übersichtlichkeit.

 ...zur Antwort
Piccoquest
13.06.2018, 14:01
Pascal(Delphi) Wörter mit StringReplace ersetzen?

Hi.

Wie kann man in Pascal(Delphi) mit StringReplace mehrere Wörter ersetzen.

Z.B. Wenn Mann 'Hallo' schreibt, dass es in 'Welt' und wenn man 'Delphi' schreibt, dass es in 'Pascal' umgewandelt wird?

 ...zum Beitrag
Antwort
von chakaaa
01.07.2018, 11:51

vorab: ich würde statt StringReplace/ReplaceStr/ReplaceText TStringHelper.Replace benutzen, falls deine Delphi-Version das kann.

Mehrere Ersetzungen kannst du untereinander schreiben:

s := s.Replace('Hallo', 'Welt');
s := s.Replace('Pascal', 'Delphi');

Flexibler wäre aber, das gleich in ein array zu packen wie

var
  a : array[0..1, 0..1] of String = (('Hallo', 'Welt'), ('Pascal', 'Delphi'));
  i : Integer;
  s : String;

begin
  s := 'Hallo, ich bin Pascal';
  for i := Low(a) to High(a) do begin
    s := s.Replace(a[i, 0], a[i,1]);
  end;
end.
...zur Antwort