Memo in Delphi
Es gibt ja in einem Memo unter Delphi diese Funktionen:
Memo2.Lines.Text := Memo1.Lines.GetText;
Gibt es aber auch das?
Memo2.Lines.Text := Memo1.Lines.GetToken;
Antwort schreiben
Antwort 1 von son_quatsch vom 19.07.2020, 19:48 Options
Nein.
Was sollte GetToken denn können?
Antwort 2 von tera vom 22.07.2020, 09:55 Options
Wenn man in Delphi z.B programmiert:
var I: integer;
stra: string;
begin
stra := str;
for I := 0 to Memo1.Lines.Count - 1 do
begin
if Memo1.Lines.Strings = 'text=' + stra then
begin
Label1.Caption := 'Hallo';
end;
end;
läuft es nicht so, wie ich es mir vorgestellt habe.
Wenn ich dann bei Memo1 "text=" eingebe, kommt bei Label1 "Hallo".
Aber wenn ich z.B "text= hola" eingebe, kommt kein "Hallo" bei Label1.
Antwort 3 von tera vom 22.07.2020, 10:29 Options
Wenn man in Delphi z.B programmiert:
var I: integer;
stra: string;
begin
stra := str;
for I := 0 to Memo1.Lines.Count - 1 do
begin
if Memo1.Lines.Strings = 'text=' + stra then
begin
Label1.Caption := 'Hallo';
end;
end;
läuft es nicht so, wie ich es mir vorgestellt habe.
Wenn ich dann bei Memo1 "text=" eingebe, kommt bei Label1 "Hallo".
Aber wenn ich z.B "text= hola" eingebe, kommt kein "Hallo" bei Label1.
Antwort 4 von ich_nee vom 23.07.2020, 11:08 Options
if copy(Memo1.Lines.Strings, 1, 5) = 'text=' + stra then
Antwort 5 von tera vom 09.08.2020, 12:07 Options
procedure TForm1.Button1Click(Sender: TObject);
var stra: string;
begin
if copy(Memo1.Lines.Strings, 1, 5) = 'text=' + stra then
Form1.Caption := 'text';
end;
Es kommen folgende Fehlermeldungen:
[Error] Unit1.pas(31): '[' expected but ',' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Antwort 6 von tera vom 09.08.2020, 12:11 Options
schuldige!
geht doch!
Antwort 7 von tera vom 09.08.2020, 12:31 Options
schuldige!
geht doch!