Guten Morgen, wie kann ich hier das "test2" in das memo adden also nur das 2. wort.

markieren

Delphi-Quellcode:

var
x : TStringList;
begin
try
x := TStringList.Create;
x.CommaText('test test2 test3 test4');
Memo1.Lines.Add(x);
finally
x.Free;
end;

Bin für jede Hilfe dankbar

Gruß Pump3r

markieren

Delphi-Quellcode:

...try
x := TStringList.Create;
Memo1.Lines.Add(copy(pos(' ',x.CommaText('test test2 test3 test4')),(pos(x.CommaText('test test2 test3 test4')))+5,x.CommaText('test test2 test3 test4')));
...

Mit pos bekommst du die Stelle an der sich das gesuchte Zeichen befindet, mit copy kannst du eine bestimmte stelle aus dem String rauskopieren.

was macht den die 5 da? :>

ja, sorry habs schon selber gesehen ... naja das ist die Pos von der leerstelle und dann +5 (Test2 hat ja die länge 5 *g*) ist nu verbessert.

ok, aber das geht leider net:

- Inpompatible Typen
- Operator oder Semikolon fehlt ...

schau mal ob irgendwo ein klammerfehler... nagut ich zieh es auseinander.

markieren

Delphi-Quellcode:

ding: integer
dong: string;

...try

x := TStringList.Create;
ding := pos(' ',x.CommaText('test test2 test3 test4')
dong := copy(x.CommaText('test test2 test3 test4'),ding,ding+5)
Memo1.Lines.Add(dong);
...

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
x : TStringList;
ding : integer
dong : string;
begin
  try
    x := TStringList.Create;
    ding := pos(' ',x.CommaText('test test2 test3 test4'));
    dong := copy(x.CommaText('test test2 test3 test4'),ding,ding+5);
    Memo1.Lines.Add(dong);
  finally
    x.Free;
  end;
end;

[Fehler] Login.pas(147): Ungültige Compileranweisung: 'dong'
[Fehler] Login.pas(155): Operator oder Semikolon fehlt
[Fehler] Login.pas(156): Operator oder Semikolon fehlt
[Fataler Fehler] Client.dpr(5): Verwendete Unit 'Login.pas' kann nicht compiliert werden

ding : integer;

Cu, Frank

ah ups
dankeschön!

aber der fehler mit dem semikolon für die zeilen:

ding := ...
dong := ...

was will er den genau von mir?

:>

Hi,

CommaText ist keine Function sondern ein Property vom Typ String.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  x: TStringList;
begin
  x := TStringList.Create;
  try
    x.CommaText := 'test test2 test3 test4';
    memo1.Lines.Add(x[1]);
  finally
    x.Free;
  end;
end;

Cu, Frank