String auslesen

[Pump3r]

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

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 :)

[HariboHunter]

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.

:nerd:

[Pump3r]

was macht den die 5 da? :>

[HariboHunter]

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.

[Pump3r]

ok, aber das geht leider net:

- Inpompatible Typen
- Operator oder Semikolon fehlt ...

:(

[HariboHunter]

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

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); 
...

[Pump3r]

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

:)

[dataspider]

ding : integer;

Cu, Frank

[Pump3r]

ah ups :)
dankeschön!

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

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

was will er den genau von mir?

:>

[dataspider]

Hi,

CommaText ist keine Function sondern ein Property vom Typ String.

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