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
